Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As _
      System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
        Dim val As Integer
        If Integer.TryParse(TextBox1.Text, val) Then
            If val >= 1000 AndAlso val <= 1050 Then
                Return
            End If
        End If
        MsgBox("TextBox1 Wert muss zwischen 1000-1050 sein")
        e.Cancel = True
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist