Cómo abrir un puerto usando VB

Con MSComm1

.Settings = "9600, N, 8, 1"

.CommPort = 3

.InBufferSize = 8

.OutBufferSize = 2

Si .PortOpen = True Entonces .PortOpen = False

.RTreshold = 4

.SThreshold = 1

.InputLen = 0

.InputMode = 0

Si .PortOpen = False Entonces .PortOpen = True

.InBufferCount = 0

Finalizar con

Este código abre el puerto