There fixed it myself :)
Option Explicit
Dim iMyNumber = InputBox("Enter a number from 1-100")
*Dim iMyNumber 
*iMyNumber = InputBox("Enter a number from 1-100")

If iMyNumber = 1 Then
 MsgBox "1 is a good bumber."
ElseIf iMyNumber > 1 And iMyNumber < 50 *then
 MsgBox "2 to 49: Numbers of indecision"
ElseIf iMyNumber = 50 *then
 MsgBox "Heading right to the middle, huh?"
ElseIf iMyNumber > 50 And iMyNumber < 99 *then
 MsgBox "51 to 99: You like the upper half"
ElseIf iMyNumber = 99 *then
 MsgBox "99 is just short of 100"
ElseIf iMyNUmber = 100 *then
 MsgBox "You went all the way!"
Else
 MsgBox "You didn't enter 1 to 100"
End If