Arduino Leonardo antwortet nicht auf VB-Serial Script

Imports System

Imports System.Threading

Imports System.IO.Ports

Imports System.ComponentModel

Public Class Form1

    Dim myPort As Array

    Delegate Sub SetTextCallBack(ByVal [text] As String)

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

        write.Enabled = False

        close.Enabled = False

    End Sub

    Private Sub init_Click(sender As Object, e As EventArgs) Handles init.Click

        If portlist.Text = "" Then

            Exit Sub

        ElseIf baudlist.text = "" Then

            Exit Sub

        End If

        SerialPort1.PortName = portlist.Text

        SerialPort1.BaudRate = baudlist.Text

        SerialPort1.ReadTimeout = 10000

        SerialPort1.Open()

        write.Enabled = True

        close.Enabled = True

        init.Enabled = False

    End Sub

    Private Sub write_Click(sender As Object, e As EventArgs) Handles write.Click

        SerialPort1.Write(input.Text)

    End Sub

    Private Sub close_Click(sender As Object, e As EventArgs) Handles close.Click

        SerialPort1.Close()

        write.Enabled = False

        close.Enabled = False

        init.Enabled = True

    End Sub

    Private Sub SerialPort1_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

        Me.Invoke(Sub() RecievedText())

    End Sub

    Private Sub RecievedText()

        Dim ToRead As Integer = SerialPort1.BytesToRead

        If ToRead > 0 Then

            Dim Buffer(ToRead - 1) As Byte

            SerialPort1.Read(Buffer, 0, ToRead)

            output.Text &= System.Text.Encoding.Default.GetString(Buffer)

        End If

    End Sub

    Private Sub scan_Click(sender As Object, e As EventArgs) Handles scan.Click

        portlist.Items.Clear()

        myPort = IO.Ports.SerialPort.GetPortNames()

        portlist.Items.AddRange(myPort)

    End Sub

End Class

char inChar;

void setup() {

  // put your setup code here, to run once:

  Serial.begin(9600); //beginn der Seriellen Komunikation

  while (!Serial){}   //Warten auf öffnen des SerialPorts

}

void loop() {

  if (Serial.available() > 0) //wenn Daten vorhanden sind...

  {

    inChar=Serial.read();     //...lies die Daten aus

    if (inChar == 'A' );      //wenn ein A kommt,

    {

      Serial.println("Test");//Schreibe "Test" zurück

    }

  }

}