Non è ben chiaro. Se ho ben capito vuoi verificare che il testo sia numerico.
Hai diverse possibilità.
Sulla perdita del focus puoi chiedere:
codice:
Me.Text1.Text = Trim (Me.Text1.Text)
If Not IsNumeric(Me.Text1.Text) Then
   MsgBox "Inserire caratteri numerici"
End If
Se vuoi controllare durante la digitazione allora...
codice:
Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case 48 to 57 '(i numeri)
        Case 44 '(la virgola)
        Case Else
            KeyAscii = 0
    End Select
End Sub
In ogni caso fai il controllo IsNumeric (per esempio potrebbero inserire + virgole)