Сообщение: else without if - VB

Формулировка задачи:

Знакомому надо программу перевести с С++. Я так и не понял как здесь возвращать значения функции и как её вообще объявлять, но не в этом дело. Всплывает сообщение об ошибке при работе программы "else without if" и выделяет мне ELSE на 17 строке. Что я делаю не так?

                    Листинг программы
                
 
                            
                        
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

Решение задачи: «Сообщение: else without if»

textual
                            Листинг программы 
                        
        If (Year Mod 4 = 0) Then Sum = Sum + 29 Else Sum = Sum + 28