Kontroller indtastning

Private Sub Command1_Click()
    If IsNumeric(Text1.Text) Then
        MsgBox "Tal"
    Else
        MsgBox " Ikke tal"
    End If
End Sub

Tak for hjælpen.

Det endte med at se ud som følgende, for også at kontrollere antallet af cifre.

If Not IsNumeric(Text1.Text) Or Len(Text1.Text) < 4 Then
  MsgBox "Årstal skal angives med fire tal"
End If

måske du også lige skulle have Len() med ;)

Private Sub Command1_Click()
Dim varText As Variant
  varText = Trim(Text1.Text)
  If IsNumeric(varText) And Len(varText) = 4 Then
    MsgBox "Tal"
      Else
    MsgBox " Ikke tal"
  End If
End Sub

Du kunne også lave det således.
1. Sætte maxlength = 4 på tekstfeltet
2. På feltets keypress event tjekke om der trykkes 0-9 eller delete
Private Sub Text1_KeyPress(KeyAscii As Integer)
  If Not ((KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyBack) Then
    KeyAscii = 0
  End If
End Sub