Public Function testeString(ByRef s As String) As Boolean
Dim i As Long, letzteZiffer As Long
Dim schar As String, lchar As Long, countx As Long
Dim ZifferVorhanden(1 To 7) As Boolean
testeString = False
If Not Len(s) = 9 Then Exit Function
For i = 1 To 9
schar = Mid(s, i, 1)
If schar = "x" Then
letzteZiffer = 0
countx = countx + 1
ElseIf InStr("1234567", schar) Then
lchar = CLng(schar)
If lchar < letzteZiffer Then Exit Function
letzteZiffer = lchar
If ZifferVorhanden(lchar) Then Exit Function
ZifferVorhanden(lchar) = True
Else
Exit Function
End If
Next
If Not countx = 2 Then Exit Function
testeString = True
End Function