Вы можете проверить значение текстового поля с помощью функции регулярного выражения или isnumeri c. Вы можете проверить ввод при событии отпуска текстового поля и использовать элемент управления ошибкой для отображения предупреждающего сообщения.
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub TextBox1_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave
If Not Regex.IsMatch(TextBox1.Text, "\d+") Then
ErrorProvider1.SetError(TextBox1, "only numerics are allowed")
Else
ErrorProvider1.Clear()
End If
End Sub
End Class