Dim x As Integer
   Dim y As String
 
   Text1 = ""
   sString = 'hier die Variable mit den Text füllen
 
   For x = 1 To Len(sString)
      y = Mid(sString, x, 1)
      Text1 = Text1 & y & "-" & Asc(y) & vbCrLf
   Next x