Dim Data_IN As New ArrayList
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim val_read As String = SerialPort1.ReadLine.ToString().Trim()
Data_IN.Add(val_read)
End Sub