Eins von beiden muß gehen.A oder B
Zwar nicht getestet .... aber ...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
Gento
Lesezeichen