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

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