dai un occhiata a questo esempio, viene indicato come eseguire comunicazioni seriali elementari utilizzando un modem:

prova a passargli all'output una semplice stringa

codice:
Private Sub Form_Load ()
   ' Buffer in cui viene memorizzata la stringa di
   ' input
   Dim Instring As String
   ' Utilizza COM1.
   MSComm1.CommPort = 1
   ' Velocità 9600, nessuna parità, 8 bit di dati e 
   ' 1 bit di stop.
   MSComm1.Settings = "9600,N,8,1"
   ' Comunica al controllo di leggere l'intero buffer 
   ' quando viene utilizzata la proprietà Input.
   MSComm1.InputLen = 0
   ' Apre la porta.
   MSComm1.PortOpen = True
   ' Invia al modem il comando di attivazione.
   MSComm1.Output = "ATV1Q0" & Chr$(13) ' Verifica che il
   ' modem risponda con "OK".
   ' Attende il ritorno di dati attraverso la porta 
   ' seriale.
   Do
      DoEvents
   Buffer$ = Buffer$ & MSComm1.Input
   Loop Until InStr(Buffer$, "OK" & vbCRLF)
   ' Legge il dato di risposta "OK" sulla porta
   ' seriale.
   ' Chiude la porta seriale.
   MSComm1.PortOpen = False
End Sub