Your code:

   MSComm1.Output = "AT+CMGS=" + """" + Number$ + """" + vbCr

   MSComm1.Output = Message$ + " " + vbCr

Replace the   +   with   &   and see if that helps.

Ken