Using com As IO.Ports.SerialPort = _ My.Computer.Ports.OpenSerialPort("COM3", 9600, IO.Ports.Parity.None, 8) com.WriteLine("SENDDATA") End Using