con l'oggetto MSComm trasmetti dati con Output, quindi MSComm.Output = "AT#CID=1" & vbCr

il carriage return è importante.