Android Question how get SMS code number

    If StartingIntent.Action = "android.provider.Telephony.SMS_RECEIVED" Then
        Dim messages() As Message
        messages = ParseSmsIntent(StartingIntent)
        Private codigo As String = ""
        For i = 0 To messages.Length - 1
           
           
            Private s1 As String = messages(i).Body
            Dim Matcher1 As Matcher
            Matcher1 = Regex.Matcher("\d+", s1)
            Do While Matcher1.Find
                If Matcher1.Match.Length = 6 Then
                    codigo = Matcher1.Match
                End If
            Loop
       
        Next
       
        If codigo.Length = 6 Then
            CallSubDelayed2(Main,"Recebe_Codigo",codigo)
        End If
       
       
    End If