Dim i&, E$, A%, Out$
 
  DeinString = "Test1" & vbCrLf ' Hier einsetzen
  Out = ""
  For i = 1 To Len(DeinString)
    E = Mid$(DeinString, i, 1)
    A = Asc(E)
    Out = Out & IIf(A > 31, E, "StZe") & " " & A & vbCr
  Next i
  MsgBox Out

Gruss,

Zardoz