Private Sub tbxVersionsNr_TextChanged(ByVal sender As System.Object, ByVal _
      e As System.EventArgs) Handles tbxVersionsNr.TextChanged
        'Ist das Ergebnis der Änderung des Textfeldes nicht numerisch, nimm die 
        ' Änderung zurück
        If Not IsNumeric(tbxVersionsNr.Text) Then
            tbxVersionsNr.Undo()
            tbxVersionsNr.ClearUndo()
        End If
    End Sub