Comport svarer ikke

Hej Freaks.
Sidder og leger med GSM Modem på en Nokia 6310i
Nå jeg sender AT commando fra hyperterm svarer den med OK
men nå jeg sender en "AT" + Chr$(13) fra program kommer der ingen svar.
Hvad kan være årsag til det.

Function DoOpenComPort() As Boolean
Dim XTime As Integer
If MSComm1.PortOpen = False Then
    MSComm1.CommPort = ComPort
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.InputLen = 0
    MSComm1.Handshaking = comNone
    MSComm1.PortOpen = True
igen:
    MSComm1.Output = "AT" + Chr$(13)
    TimeOut = False
    PortTimeOut = True
    Do
    DoEvents
        Buffer$ = Buffer$ & MSComm1.Input
    Loop Until InStr(Buffer$, "OK") Or InStr(Buffer$, "ERROR") Or TimeOut
    If TimeOut Then
        SMSisOK = False
        XTime = XTime + 1
        If Not XTime = 3 Then GoTo igen ' Prøv 3 gange
        MSComm1.PortOpen = False
    Else
        SMSisOK = True
    End If
End If
DoOpenComPort = SMSisOK
End Function