Probier mal das:

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
Gruß
Chris