problemer med inputbox

Svar = inputbox("indtast måned")
If Svar = "" Then
msgbox " du indtastede ingenting"
exit sub
end if

Vi kunne umiddelbart ikke få din løsning til at virke.
Her er hele koden for knappen

Private Sub cmdVis_Click()


Dim Svar As Single
Svar = InputBox("Indtast månedens nummer", "Måned")

If Svar > 12 Then
lblVis.Caption = "Der er kun 12 måneder i et år"
Else
If Svar < 0 Then
lblVis.Caption = "Nej der findes ikke minus måneder"
Else
If Svar = 0 Then
lblVis.Caption = "Har du hørt om en nulde måned?"
Else
'If Svar = Nothing Then
'lblVis.Caption = "Du glemte at taste en måned"
'Else
lblVis.Caption = "Månedens navn er  " & Mdr(Svar)

'End If
End If
End If
End If
End Sub

Alt andet end det udmarkerede "  '  " virker

så prøv den her:

Private Sub cmdVis_Click()
Dim strSvar As String
  strSvar = Trim$(InputBox("Indtast månedens nummer", "Måned"))

  If IsNumeric(strSvar) Then
    If strSvar > 12 Then
      lblVis.Caption = "Der er kun 12 måneder i et år"
    ElseIf strSvar < 0 Then
      lblVis.Caption = "Nej der findes ikke minus måneder"
    ElseIf strSvar = 0 Then
      lblVis.Caption = "Har du hørt om en nulde måned?"
    Else
      lblVis.Caption = "Månedens navn er  " & Mdr(strSvar)
    End If
  ElseIf strSvar = "" Then
    lblVis.Caption = "Du glemte at taste en måned"
      Else
    lblVis.Caption = "Måneder er i nummer og ikke '" & strSvar & "'"
  End If
End Sub

smukt det virker, men kan vi få dig til at uddybe

strSvar = Trim$(InputBox("Indtast månedens nummer", "Måned"))

specielt Trim$

Trimmer for mellemrum ;)

svar er en string og ikke single