Ввод в TextBox только чисел

 Dim qq As Integer
        qq = TextBox1.Text
        Select Case CInt(qq)
            Case qq = "0" To "9", "-", ","
                TextBox1.Text = CInt(qq)
                'Case Else
                '    TextBox1.Text = ""
        End Select

        NumericUpDown1.Controls(0).Visible = False
        'или
        NumericUpDown1.Controls.RemoveAt(0)

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim dd As Double 'тут нужный тип для проверки
        Try
            dd = TextBox1.Text & e.KeyChar
        Catch ex As Exception
            e.Handled = True
        End Try
End Sub

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim c As Char = e.KeyChar, Ds As Char = Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator
        Dim Sstart% = sender.SelectionStart, Slen% = sender.SelectionLength, Tlen% = sender.Text.Length , Nd% = 3
        Dim tex$ = sender.Text, ShCu$ = vbBack & ChrW(1) & ChrW(22) & ChrW(24) & ChrW(26) & ChrW(3) & "."c & ","c & "-"c
 
        If Char.IsDigit(c) OrElse ShCu.Contains(c) Then
            If c = "-"c Then
                e.KeyChar = If(tex.Contains("-"), Nothing, "-")
                e.KeyChar = If(Sstart <> 0, Nothing, e.KeyChar)
            End If
            If ",.".Contains(c) Then
                e.KeyChar = If(tex.Contains(Ds), Nothing, Ds)
                e.KeyChar = If(Sstart = 0 AndAlso ",.".Contains(c), Nothing, e.KeyChar)
                e.KeyChar = If(Sstart < (Tlen - 2), Nothing, e.KeyChar)
                e.KeyChar = If(Tlen >= 1 AndAlso Sstart = 1 AndAlso tex(0) = "-"c, Nothing, e.KeyChar)
            End If
            If tex.Contains(Ds) AndAlso Tlen = (tex.IndexOf(Ds) + Nd) Then
                e.KeyChar = If(Slen = 0 AndAlso Sstart > (Tlen - Nd) AndAlso Not ShCu.Contains(c), Nothing, e.KeyChar)
            End If
            If Tlen > 1 AndAlso tex(0) = "-"c Then
                e.KeyChar = If(Sstart = 0 AndAlso Char.IsDigit(c), Nothing, e.KeyChar)
                e.KeyChar = If(Sstart = 1 AndAlso Not Char.IsDigit(c), Nothing, e.KeyChar)
                e.KeyChar = If(Sstart = 1 AndAlso "0".Contains(c), Nothing, e.KeyChar)
                e.KeyChar = If(Sstart = 1 AndAlso tex(1) = "0" AndAlso "0".Contains(c), Nothing, e.KeyChar)
                e.KeyChar = If(Sstart = 2 AndAlso tex(1) = "0" AndAlso Char.IsDigit(c) AndAlso Slen = 0, Nothing, e.KeyChar)
            End If
            If Tlen >= 1 Then
                e.KeyChar = If(Sstart = 0 AndAlso tex(0) = "0"c AndAlso "0".Contains(c), Nothing, e.KeyChar)
                e.KeyChar = If(Tlen > 1 AndAlso Sstart = 0 AndAlso "0".Contains(c), Nothing, e.KeyChar)
                e.KeyChar = If(Sstart = 1 AndAlso tex(0) = "0"c AndAlso Char.IsDigit(c) AndAlso Slen = 0, Nothing, e.KeyChar)
            End If
            If ChrW(22).ToString.Contains(c) Then 'Запрет на вставку текста из буфера
                    e.Handled = True
                    Beep()
            End If
        Else
            e.Handled = True
            Beep()
            'MessageBox.Show("Пожалуйста, вводите только цифры.", "Ошибка ввода")
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.ContextMenuStrip = New ContextMenuStrip
    End Sub

Dim Temp As Double
e.Handled = Not Double.TryParse(TextBox1.Text & e.KeyChar, Temp)

Catch ex As Exception
End Try

Option Strict On
 
Imports System.Text.RegularExpressions
 
Public Class Form1
 
    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim separator As Char = CChar(System.Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator(0))
 
        If Char.IsControl(e.KeyChar) Then
            If (Asc(e.KeyChar) = 22 And Clipboard.ContainsText) Then
                e.Handled = Not (IsNumeric(Clipboard.GetText) And Not (Regex.IsMatch(TextBox1.Text, separator) And Regex.IsMatch(Clipboard.GetText, separator)))
            End If
 
        Else
            e.Handled = Not (Char.IsDigit(e.KeyChar) Or (Equals(e.KeyChar, separator) And Not (Regex.IsMatch(TextBox1.Text, separator))))
 
        End If
    End Sub
End Class

If e.Control = True then flag = True

If flag = True Then 
   If e.KeyChar = "c" Then
   e.Handled =  False
   End If
End If

  Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not Char.IsDigit(e.KeyChar) Then e.Handled = True
    End Sub

e.Handled = Not (Char.IsDigit(e.KeyChar))