Sub SendSerialData(ByVal data As String)
' Skickar sträng till COM1
Using com1 As IO.Ports.SerialPort = _
My.Computer.Ports.OpenSerialPort("COM1")
com1.WriteLine(data)
End Using
End Sub