Hola amigo, si estás usan visual 6 sería algo así
Debes configurar el puerto más o menos así
Private Sub Form_Load()
On Error Resume Next
MSComm1.PortOpen = True
If MSComm1.PortOpen = False Then MsgBox ("Puerto no habilitado")
MSComm1.Settings = "4800,n,8,1" 'configuracion de velocidad,paridad,# bit,bit parada
MSComm1.PortOpen = True 'se abre el puerto
End Sub
y luego para enviar puede ser así:
Private Sub tecla_enter_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = "TECLA ENTER" & " (13)" 'evento que ocurre al presionar el click del mause
MSComm1.Output = Chr(13) 'se envia el decimal 13 en binario
End Sub
Saludos.