Makro Probleme

moin leute hab ein kleines problem mit makros

hier der text

Sub Noten()
'
' Noten Makro
' Makro aufgezeichnet am 14.06.2004
'
antwort = InputBox("Ihre Note?")
Selection.TypeParagraph
If note < 5 Then
Selection.TypeText Text:="Note "
Selection.TypeText Text:=note
Selection.TypeText Text:=" ist positiv"
Else
Selection.TypeText Text:="Note "
Selection.TypeText Text:=note
Selection.TypeText Text:=" ist leider negativ"
End If
End Sub


da ist irgendwo ein fehler, den ich nicht finde

und zwar bekomme ich wenn ich die zahl 5 eingebe auch die antwort raus die note ist positiv


also bitte helft mir

tia

Dare

danke jetzt geht der ****** endlich

Dare