Get input using inputbox, and then check it is positive or negative or zero in vb6,print using msgbox (visual basic)

Private Sub Form_Load()

Dim a As Integer

a = Int(InputBox("enter a number"))

If a = 0 Then

MsgBox (a & "is zero")

ElseIf a > 0 Then

MsgBox (a & "is positive")

Else

MsgBox (a & "is nagetive")

End If

 End Sub