own function VBA else will not execute

Hi I have absolutly no clue why the else with "exit for" will not execute.

Value of my respective Excel testing cell as follows:

"VERS.GR.III, KENNNR.1905, V ERS.NR. 1023461"

Function DebitorVorhanden(Debitor As String) As Boolean
    Dim Ausgabe As Boolean
    Ausgabe = False
    Dim TextLänge As Integer
    TextLänge = Len(Debitor)
    Dim Prüfer As Integer
    
    For Prüfer = 1 To TextLänge
        If Mid(Debitor, Prüfer, 1) = "1" Then

            Dim PrüferLänge As Integer
            PrüferLänge = 0
            
            Dim Prüfer2 As Integer
            
            For Prüfer2 = Prüfer To Prüfer + 6
                
                If Int(Mid(Debitor, Prüfer2, 1)) = 1 Or 2 Or 3 Or 4 Or 5 Or 6 Or 7 Or 8 Or 9 Then
                        PrüferLänge = PrüferLänge + 1
                    Else
                        Exit For
                End If
                
            Next Prüfer2
            
            If PrüferLänge = 7 Then
                Ausgabe = True
                GoTo DebitorGefunden
            End If
            
        End If
    Next Prüfer
    
DebitorGefunden:
    DebitorVorhanden = Ausgabe
End Function