Sub main()
Dim s
s = "a"
Call TesteAufZeichen(s)
End Sub
Sub TesteAufZeichen(ByVal s As String)
If Right(s, 1) = Chr(32) Then
Call TesteAufZeichen(Left(s, Len(s) - 1))
Else
Select Case AscW(s)
Case Is < 65
MsgBox "Unerwünschtes Zeichen"
Case 91 To 95, 123 To 125
MsgBox "Unerwünschtes Zeichen"
Case Else
MsgBox "Erwünschtes Zeichen"
End Select
End If
End Sub