Селекция

Sub Harvest()
    On Error GoTo ToError
    Dim k As Single 
    Dim p As Single 
    Dim n As Single 
    Dim s As Single 
    Dim sMessage As String
Seeds:
    sMessage = InputBox("Введите начальное количество семян (в кг):")
    k = Abs(Val(sMessage))
    If k = 0 Then
        MsgBox "Нет семян для посева."
        GoTo Seeds
    End If
Productivity:
    sMessage = InputBox("Урожайность в год (в кг):")
    p = Abs(Val(sMessage))
    If (Not p > 1) Then
        MsgBox "Слишком низкая урожайность."
        GoTo Productivity
    End If
Expenses:
    sMessage = InputBox("Расход семян (в кг) на посев 1 га:")
    n = Abs(Val(sMessage))
    If n = 0 Then
        MsgBox "Слишком низкий расход."
        GoTo Expenses
    End If
Area:
    sMessage = InputBox("Введите площадь для посева (в га):")
    s = Abs(Val(sMessage))
    If s = 0 Then
        MsgBox "Отсутствует посевная площадь."
        GoTo Area
    End If
    Dim iYears As Long
    s = s * n
    If k >= s Then GoTo Result
    Do While s > k
        k = k * p
        iYears = iYears + 1
    Loop
Result:
    MsgBox "Вам нужно собирать урожай " & iYears & " года/лет."
    Exit Sub
ToError:
    MsgBox "Sorry, an unforeseen error occured."
End Sub