Numeric Values in a textbox

here's a code I have for one of my textboxes

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox1.Value) Then
  Label1.Caption _
   = Application.Text(Round(TextBox1.Value / 0.03125, 0) * 0.03125, "# ??/??")
Else
  MsgBox "not a number in textbox1"
End If
End Sub