I am giving one example how to use mscomm
For sending message I am using like this
Set MSComm1 = New MSComm
MSComm1.CommPort = 1
MSComm1.Settings = "115200,N,8,1"
MSComm1.Handshaking = 2
MSComm1.Output = "AT+CMGS= " & Chr(34) & Number$ & Chr(34) & Chr$(13) & Chr(10)
writeFile ("AT+CMGS= " & Chr(34) & Number$ & Chr(34) & Chr$(13) & Chr(10))
''''''''''''''''''''''''''''
Buffer = ""
Do
DoEvents
If MSComm1.InBufferCount > 0 Then Buffer = Buffer & MSComm1.Input
Loop Until InStr(Buffer, ">")
MsgBox Buffer