You can also use Isnumeric() to limit the entry to numeric only

VB Code:
  1. If IsNumeric(Text1.Text) = False Then
  2.      MsgBox "Type numeric value", , "Result"
  3.      Text1.SetFocus
  4.      Exit Sub
  5. End If