Сообщение: else without if - VB - Ответ 6291252

Private Sub Command1_Click()
Dim day, month, year, sum, ost, tmp As Integer
day = Text1.Text
month = Text2.Text
year = Text3.Text
Call myChoose(month, sum, year)
sum = sum - day
If (month = 12) Then
    month = 1
    year = year + 1
Else
    month = month + 1
End If
point:
tmp = 0
Call myChoose(month, tmp, year)
If ((sum + tmp) < 5000) Then
    Call myChoose(month, sum, year)
    If (month = 12) Then
        month = 1
        year = year + 1
    Else
        month = month + 1
    End If
    GoTo point
End If
ost = 5000 - sum
If (ost = 0) Then
    If (month = 1) Then
        month = 12
        year = year - 1
    Else
        month = month - 1
    End If
    Call myChoose(month, ost, year)
End If
Text4.Text = ost
Text5.Text = month
Text6.Text = year
 
End Sub
 
Sub myChoose(month, sum, year)
Select Case month
    Case 1, 3, 5, 7, 8, 10, 12
        sum = sum + 31
    Case 2
        If (year Mod 4 = 0) Then
            sum = sum + 29
        Else
            sum = sum + 28
        End If
    Case 4, 6, 9, 11
        sum = sum + 30
    End Select
End Sub