WELCOME TO THE BOARD!
I am sure there a several ways to do it. If you have a TextBox and a CommandButton, you could do this:
Sub CommandButton_Click()
If IsNumeric(TextBox1.Value) Then
Exit Sub
End If
MsgBox "Invalid entry. Numbers are only allowed."
TextBox1.Select
Selection.ClearContents
End Sub
Did this help out?