Hallo,

diesen Code für jede deiner Textboxen anlegen, Namen der Textboxen anpassen:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  Select Case KeyAscii
    Case 46, 48 To 57
    Case Else
      KeyAscii = 0
  End Select
End Sub

Gruß