Hi,
Try something like this
Dim x As Integer
Dim stri As String
Dim int As Integer
Dim str As Integer
Dim spe As Integer
stri = TextBox1.Text
For x = 0 To stri.Length - 1
If IsNumeric(stri.Substring(x, 1)) = True Then
int += 1
ElseIf IsNumeric(stri.Substring(x, 1)) = False Then
str += 1
Else
spe += 1
End If
Next
MsgBox(int & " " & str & " " & spe)
It wont give count for special charecters as in second condition is checkig for Isnumeric=False will add the count to Str only. Try how to find special charecters in .net. this is just a hint. happy coding...:)