Compile error: Else without If

[Massey1337]

Hey I'm a new programmer and new to this forum, so hi, and I need help with some of my coding for a simple fortune teller program.
This is my coding:

Dim Text1 As Integer
Dim Text2 As Integer
Dim Text3 As Integer
Private Sub Command1_Click()
If Month = 1 - 4 Then MsgBox ("It's looking good")
ElseIf Month = 5 - 8 Then MsgBox ("Don't do it!")
ElseIf Month = 9 - 12 Then MsgBox ("You're doomed!")
Else
MsgBox ("Please enter a valid date of birth")
End If
End Sub
Private Sub Form_Load()
Day.Text = ""
Month.Text = ""
Year.Text = ""
End Sub

The error as stated in the title is Compile error: Else without if
I need help a.s.a.p. with this as its for college, thanks in advance.
Elliot.

 

[VoG]

Hello and welcome to MrExcel.

First don't use Month as a variable name - it is a VBA function.

Try

Private Sub Command1_Click()
Select Case MyMonth
    Case 1 To 4: MsgBox ("It's looking good")
    Case 5 To 8: MsgBox ("Don't do it!")
    Case 9 To 12: MsgBox ("You're doomed!")
    Case Else: MsgBox ("Please enter a valid date of birth")
End Select
End Sub

 

[Diablo II]

try it like this

Dim Text1 As Integer
Dim Text2 As Integer
Dim Text3 As Integer
Private Sub Command1_Click()
If Month = 1 - 4 Then
MsgBox ("It's looking good")
Else
If Month = 5 - 8 Then
MsgBox ("Don't do it!")
Else
If Month = 9 - 12 Then MsgBox ("You're doomed!")
Else
MsgBox ("Please enter a valid date of birth")
End If
End Sub
Private Sub Form_Load()
Day.Text = ""
Month.Text = ""
Year.Text = ""
End Sub

 

[Massey1337]

Thanks for the swift replies, I've been asked to use a Select Case statement like what VoG posted, however, as I try your code I'm getting "Please enter a valid date of birth." which leads me to thinking the 1 to 4 and the 5 to 8 parts are wrong?
I'm trying to change them around now, but I'm struggling any ideas on the new problem?
Thanks.
P.S. Thanks for your reply also Diablo that worked for me, but as I stated I need to use a Select Case statement.

 

[VoG]

Where is the value of MyMonth coming from?

 

[Massey1337]

Aha, sorry, false alarm, just changing my Month variable to MyMonth worked, I think I must of typo'd, thanks so much for your help.
I look forward to staying at this forum.