Mid(<String>, <Start>, <Länge (bei dir 1)>)
 
' also zum Beispiel so:
 
Private Sub EachLetter(ByVal strSource as String)
Dim i as integer, Letter as String
For i = 1 To Len(strSource)
Letter = Mid(strSource, i, 1)
'mach irgendwas mit dem Buchstaben in 'Letter':
'...
 
'nächster Buchstabe
Next i
End Sub