positivt tall

Jeg går udfra at txtAntall er en TextBox

Private Sub Command1_Click()
  If Not IsNumeric(txtAntall.Text) Then
    MsgBox "1"
  ElseIf Val(txtAntall.Text) < 10 Then
    MsgBox "2"
  End If
End Sub

det skulle være et svar. ;-)

if isnumeric(txtAntall.text) then
  if txtAntall.text >= 0 then
    msgbox "Tallet er positivt"
  else
    msgbox "Tallet er negativt"
  end if
else
  msgbox "Det indtastede er ikke et tal"
end if

Sorry, hvis det er 1 og opefter skal du skrive "> 0" i stedet for ">= 0".

Antager at du kun bruger heltal...

Du kan også bruge en _KeyPress event til at forhindre, at der tastes andet end 0-9 ind:

Text1_KeyPress(KeyAscii As Integer)
  ' Checker om tast er et numerisk tastetryk
  ' tallene 0-9 samt <Backspace> accepteres
  ' <Enter> laves om til <Tab>

  Select Case KeyAscii
          Case vbKeyBack, 48 To 57 'Tallene 0-9 og backspace
          Case vbKeyReturn
              KeyAscii = 0
              SendKeys "{tab}"
          Case Else
              KeyAscii = 0
              MsgBox "Indtast kun tal", vbExclamation
  End Select
End Sub

Herefter kan du så bruge

  If Not Text1.Text > 0 then
    MsgBox "Tal skal være større end nul"
  End if

/Martin