Dim i As Long
Dim n As Byte
Dim x As Long, y As Long
 
For i = 1 To Len(sSuchString)
     n = Asc(Mid(sSuchString, i, 1))
     Select Case n
              Case 0 To 32 : x = x + 1 
              Case Else :  y = y + 1
      End Select
Next i
 
Msgbox "Es wurden " & CStr(x) & " Sonderzeichen und " & Cstr(y) & " andere" & _
  "Zeichen gefunden"