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