مساعدة في توظيف الكود بشكل صحيح

PHP كود :

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        If SerialPort1.IsOpen Then
            SerialPort1.Close()
        End If
        Try
            With SerialPort1
                .PortName = cbCOMPort.Text
                .BaudRate = 115200
                .ReadBufferSize = 500
                .Parity = IO.Ports.Parity.None
                .DataBits = 8
                .StopBits = IO.Ports.StopBits.One
                .Handshake = IO.Ports.Handshake.None
            End With
            SerialPort1.Open()
            btnConnect.Text = "DISCONNECT"
            cbCOMPort.Enabled = False
            With lblStatus
                .Text = "Connected"
                .ForeColor = Color.Green
            End With

            '---------------------------------------------------'

            Dim resFilename As String = "response.txt"
            Dim response As String = ""

            '---------------------------------------------------'
            ' Read response data '
            '---------------------------------------------------'
            ' Device model -----------------'
            ' Command: AT+CGMM
            '
            SerialPort1.Write("AT+CGMM" & vbCr)
            System.Threading.Thread.Sleep(1000)
            response &= "Device model: [AT+CGMM] --------------------------" & vbNewLine &
                        SerialPort1.ReadExisting & vbNewLine

            ' Manufacturer -----------------'
            ' Command: AT+CGMI
            '
            SerialPort1.Write("AT+CGMI" & vbCr)
            System.Threading.Thread.Sleep(1000)
            response &= "Manufacturer: [AT+CGMI] --------------------------" & vbNewLine &
                       SerialPort1.ReadExisting & vbNewLine

            ' EMEI -------------------------'
            ' Command: AT+CGSN
            '
            SerialPort1.Write("AT+CGSN" & vbCr)
            System.Threading.Thread.Sleep(1000)
            response &= "EMEI: [AT+CGSN] --------------------------" & vbNewLine &
                        SerialPort1.ReadExisting & vbNewLine

            ' Network ----------------------'
            ' Command: AT+COPS?
            '
            SerialPort1.Write("AT+COPS?" & vbCr)
            System.Threading.Thread.Sleep(1000)
            response &= "Network: [AT+COPS?] --------------------------" & vbNewLine &
                        SerialPort1.ReadExisting & vbNewLine

            ' BATERY LEVEL -----------------'
            ' Command: AT+CBC
            '
            SerialPort1.Write("AT+CBC" & vbCr)
            System.Threading.Thread.Sleep(1000)
            response &= "BATERY LEVEL: [AT+CBC] --------------------------" & vbNewLine &
                        SerialPort1.ReadExisting & vbNewLine
            '---------------------------------------------------'

            response &= "============================="

            IO.File.WriteAllText(resFilename, response)

            MsgBox("تم حفظ النتائج في الملف")

            Process.Start(Application.StartupPath)

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

PHP كود :

'---------------------------------------------------'
' Read response data '
'---------------------------------------------------'
' Device model -----------------'
' Command: AT+CGMM
'
SerialPort1.Write("AT+CGMM" & vbCr)
System.Threading.Thread.Sleep(1000)
TextBox1.Text = Split(SerialPort1ReadExisting, vbNewLine)(1)

' Manufacturer -----------------'
' Command: AT+CGMI
'
SerialPort1.Write("AT+CGMI" & vbCr)
System.Threading.Thread.Sleep(1000)
TextBox2.Text = Split(SerialPort1ReadExisting, vbNewLine)(1)

' EMEI -------------------------'
' Command: AT+CGSN
'
SerialPort1.Write("AT+CGSN" & vbCr)
System.Threading.Thread.Sleep(1000)
TextBox3.Text = Split(SerialPort1ReadExisting, vbNewLine)(1)

' Network ----------------------'
' Command: AT+COPS?
'
SerialPort1.Write("AT+COPS?" & vbCr)
System.Threading.Thread.Sleep(1000)
TextBox4.Text = System.Text.RegularExpressions.Regex.Match(SerialPort1.ReadExisting, "(?<="").+?(?="")").Value.Trim

' BATERY LEVEL -----------------'
' Command: AT+CBC
'
SerialPort1.Write("AT+CBC" & vbCr)
System.Threading.Thread.Sleep(1000)
TextBox5.Text = System.Text.RegularExpressions.Regex.Match(SerialPort1.ReadExisting, "(?<=\:).+").Value.Trim
'---------------------------------------------------'