Public Class Form1
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If System.Text.RegularExpressions.Regex.IsMatch(e.KeyChar.ToString(), "[^0-9\s]") Then
e.Handled = True
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Not String.IsNullOrWhiteSpace(TextBox1.Text) Then
Dim value As Integer = CInt(TextBox1.Text)
MessageBox.Show($"{value}")
End If
End Sub
End Class