The below sub wiil determine if the string has special characters, numbers, and alpha characters.

NOTE: the space character is returned as a special character.

[VBA]
Sub WhatsItGot(AStr As String, Alph As Boolean, Numeric As Boolean, SpecChar As Boolean)
Dim mI As Long, mTemp As String
For mI = 1 To Len(AStr)
mTemp = Mid(AStr, mI, 1)
If Asc(mTemp) < 58 And Asc(mTemp) > 47 Then
Numeric = True
ElseIf (Asc(mTemp) > 64 And Asc(mTemp) < 91) Or (Asc(mTemp) > 96 And Asc(mTemp) < 123) Then
Alph = True
ElseIf Asc(mTemp) < 65 Or Asc(mTemp) > 122 Or (Asc(mTemp) > 90 And Asc(mTemp) < 97) Then
SpecChar = True
End If
Next
End Sub

'My test sub
Sub testit()
Dim a As String, Alph As Boolean, Numeric As Boolean, SpecChar As Boolean
a = "1t001252-11"
WhatsItGot a, Alph, Numeric, SpecChar
Alph = False
Numeric = False
SpecChar = False
a = "12345"
WhatsItGot a, Alph, Numeric, SpecChar
Alph = False
Numeric = False
SpecChar = False
a = " asasd"
WhatsItGot a, Alph, Numeric, SpecChar
Alph = False
Numeric = False
SpecChar = False
a = "asd123"
WhatsItGot a, Alph, Numeric, SpecChar
Alph = False
Numeric = False
SpecChar = False
a = "1t_001252-11"
WhatsItGot a, Alph, Numeric, SpecChar
Alph = False
Numeric = False
SpecChar = False
End Sub

[/VBA]