Envoyer .csv sur RS232 en VB Express 2010

Bonjour à tous! Voila j'ai repris un programme (open source) qui me permet de lire les informations par un port RS232 et de les enregistrer dans un fichier Excel (.csv).

Je ne comprend pas grand choses à Visual Basic Express 2010, et mon but est maintenant de renvoyer ces informations par ce même port à l'appui du bouton "envoyer" (Button2_Click). Voila je part de 0 (pour ce bouton tout du moins), et j'aimerai juste être aiguillée sur la méthode qui me permettrai de réaliser cette fonction.

Je me permet de poster mon programme:

Public Class Form1

    Dim WithEvents serialPort As New IO.Ports.SerialPort


    Private Property MSComm1 As Object


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        For i As Integer = 0 To _
           My.Computer.Ports.SerialPortNames.Count - 1
            cbbCOMPorts.Items.Add( _
               My.Computer.Ports.SerialPortNames(i))
        Next
        btnDisconnect.Enabled = False
    End Sub

    Private Sub DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles serialPort.DataReceived

        txtDataReceived.Invoke(New myDelegate(AddressOf updateTextBox), New Object() {})

    End Sub


    Public Delegate Sub myDelegate()
    Public Sub updateTextBox()

        With txtDataReceived
            .Font = New Font("Arial", 8.0!, FontStyle.Bold)
            .SelectionColor = Color.Blue
            .AppendText(serialPort.ReadExisting)
            .ScrollToCaret()
        End With

    End Sub

    Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click

        If serialPort.IsOpen Then
            serialPort.Close()
        End If
        Try
            With serialPort
                .PortName = cbbCOMPorts.Text
                .BaudRate = 96000
                .Parity = IO.Ports.Parity.None
                .DataBits = 8
                .StopBits = IO.Ports.StopBits.One
                ' .Encoding = System.Text.Encoding.Unicode
            End With
            serialPort.Open()

            lblMessage.Text = cbbCOMPorts.Text & " est connecté."
            btnConnect.Enabled = False
            btnDisconnect.Enabled = True
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub

    Private Sub btnDisconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisconnect.Click

        Try
            serialPort.Close()
            lblMessage.Text = serialPort.PortName & " est deconnecté."
            btnConnect.Enabled = True
            Button2.Enabled = True
            btnDisconnect.Enabled = False
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub


    Private Sub btnAnswerCall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        serialPort.Write("AT*EVA" & vbCrLf)

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim SaveFileDialog As New SaveFileDialog()
        SaveFileDialog.Filter = "txt files (*.csv)|*.csv"
        SaveFileDialog.FilterIndex = 2
        SaveFileDialog.RestoreDirectory = True

        If SaveFileDialog.ShowDialog() = DialogResult.OK Then
            Dim fileNumber As Integer
            fileNumber = FreeFile()
            FileOpen(fileNumber, SaveFileDialog.FileName, OpenMode.Output)
            PrintLine(fileNumber, txtDataReceived.Text)
            FileClose(fileNumber)
        End If

    End Sub

    Private Sub txtDataReceived_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDataReceived.TextChanged

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'??????????????????????????????????????????????????????????????

End Class

Par avance merci.


I Axe