MSComm1.CommPort = 1 ' Com Port 1
   MSComm1.Settings = "9600,N,8,1"
   MSComm1.InputLen = 0
   MSComm1.PortOpen = True
   MSComm1.Output = "AT" & Chr$(13) & Chr(10)
   MSComm1.Output = "Das ist ein Test! "
   MSComm1.Output = "AT" & Chr$(13) & Chr(10)
   MSComm1.PortOpen = False

cu
JennyB
___________________________________________________________________
Some days are diamond - some days are stone ...