write to serial port

Hi I'm trying to write data to a serial port however I seem to be constantly getting the "catch" situation occurring when I call this code: 'Send Data on Serial Port Sub SendSerialData(ByVal Description As String, ByVal output_data As String) 'Send strings to ComPort Using...