Probier mal das:
GrußCode:$regfile = "m32def.dat" $crystal = 16000000 $baud = 19200 Dim Text As String * 67 Dim Auswahl As String * 5 Text = "+ Cmgl : 1 , REC UNREAD , xxxxxxxxxx , 09/08/04,15:50:23+08 , test1" Do Auswahl = Mid(text , 63 , 5) Print Auswahl Loop End
Chris
Lesezeichen