Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox1.TextChanged
        ' Errorprvider & Ausgabe-Label zurücksetzen
        ErrorProvider1.Clear()
        Label1.Text = "Nichts eingegeben"
 
        ' Aussteigen, wenn nichts eingegeben ist
        If TextBox1.Text.Length = 0 Then Return
 
        Dim inputValue As Double
        If Not Double.TryParse(TextBox1.Text, inputValue) Then
            ' Wenn Eingabe nicht zum Double konvertiert werden kann
            ErrorProvider1.SetError(TextBox1, "Eingabe kann nicht zum Typ" & _
              "Double konvertiert werden. Bitte Eingabe prüfen!")
            Label1.Text = "Fehler"
        Else
            ' Wenn Konvertierung erfolgreich
            Label1.Text = "Eingegeben: " & inputValue
        End If
    End Sub