String nach Zeichen durchsuche

[Rannh]

Grüss euch,

wie kann ich einen in ASP-VB String prüfen, ob er Sonderzeichen enthält?
Der String darf nur Buchstaben A-Z und Zahlen 0-9 enthalten.
Ich kenne zwar die Methoden InStr und den ASCII-Wert, aber gibts nicht ne bessere Möglichkeit?

Danke im Voraus

[Rannh]

Vielleicht braucht es jemand:
'****************************

Option Explicit

Private Sub Form_Load()

Dim S As String

S = "0a9z"

Dim lngCurrPos As Long
Dim lngCharCode As Long

S = LCase(S)

For lngCurrPos = 1 To Len(S)
    lngCharCode = Asc(Mid(S, lngCurrPos, lngCurrPos + 1))
    If (lngCharCode < 48 Or lngCharCode > 57) And (lngCharCode < 97 Or lngCharCode > 122) Then
        MsgBox "no absolute string"
        Exit For
    End If
Next

End

End Sub