Sub rrr()
' Ваши вычисления в теле субрутины
' Вызовы функции

A1 = Нечто(1, 2, proverka)
If Not proverka Then
    ' Некие Вычисления при ошибочной функции (если нужно)
    Exit Sub
End If

' Продолжение Ваших вычислений в теле субрутины

End Sub
Function Нечто(Arg1, Arg2, iErr)
    iErr = True
    
    ' Ваши вычисления в теле функции
    ' Всяческие нужные для Вас проверки
    ' Например (в любом случае функция должна выдать определённый результат)
    
    iErr = (Arg1 > Arg2)
    If iErr Then
        Нечто = Arg1 + Arg2     ' Некое выражение при положительной проверке
    Else
        Нечто = 0               ' Некое выражение при отрицательной проверке
        Exit Function
    End If
    
    ' Подобных кусков где определяется необходимость выхода
    ' из вызывающей субрутины может быть сколько угодно

End Function