Giusti i consigli di Oregon e Grumpy, solo per completezza ti scrivo questo:

codice:
    Dim Rx$
    Rx$ = MSComm1.Input ' Leggo il contenuto del buffer di ricezione (e svuoto .Input)
    If Len(Rx$) Then ' Se ho ricevuto qualcosa lo scrivo nella TextBox
        Text1.Text = Text1.Text & Rx$ 
    End If
Le spiegazioni dettagliate (ma non troppo, non ti preoccupare..) le trovi qui:

http://www.progetti-hw-sw.it/RS-232_..._Basic_VB6.htm

Ciao