//You can define this Arrays
Flujos = Array("Sin control de flujo", "XON/XOFF", "HardwareCTS/RTS", "RTS/CTS, XON/XOFF")
Baudios = Array("110", "300", "600", "1200", "2400", "4800", "9600", "14400", "19200", "28800", "38400", "57600", "128000", "256000")
Paridad = Array("Par", "Marca", "Ninguna", "Impar", "Espacio")
ParidadEnglish = Array("E", "M", "N", "O", "S")
BitsData = Array("4", "5", "6", "7", "8")
BitsStop = Array("1", "1.5", "2")
// and a type of data SERIE with configuration parameters, so....
// To open and configure PORT
MSComm1.CommPort = Serie.Com
MSComm1.Settings = Baudios(Serie.Baud) & "," & ParidadEnglish(Serie.Paridad) & "," & BitsData(Serie.Datos) & "," & BitsStop(Serie.Stop)
MSComm1.InputLen = 0 ' Read entire buffer
MSComm1.InputMode = comInputModeText
MSComm1.PortOpen = True ' Opens the port
MSComm1.RThreshold = 1 ' Call **_OnComm for each char
d = MSComm1.Input ' empty the bufffer at start
MSComm1.InputLen = 1 ' Only read one char from buffer
//For closing PORT
MSComm1.PortOpen = False
It's very simple to use serial port in VB
hope it helps
Regards