Eins von beiden muß gehen.A oder B

Code:
Dim Buchstabe As Byte
Dim B As String * 1
Dim Position As Byte
Dim S As String * 50

S = " Hello World  "

For Position = 1 To Len(s)                'A
  B = Mid(s , Position , 1)
  Buchstabe = Asc(b)
  Print Chr(buchstabe)
  Waitms 1
Next Position


For Position = 1 To Len(s)              'B
  B = Mid(s , Position , 1)
  Print B
  Waitms 1
Next Position
Zwar nicht getestet .... aber ...

Gento