y=cos(1+cos(2+cos3)

Sub y()
MsgBox "y = " & Cos(1 + Cos(2 + Cos(3))), , "y = cos(1+cos(2+cos(3)))"
' MsgBox - окно сообщения
' "y = " - начало сообщения
' Cos(1 + Cos(2 + Cos(3))) - конец сообщения (формула функции y)
' & - сцепление двух частей сообщения
' "y = cos(1+cos(2+cos(3)))" - заголовок сообщения
End Sub

'Ðåêóðñèâíàÿ ôóíêöèÿ äëÿ âû÷èñëåíèÿ âëîæåííûõ ñèíóñîâ, àðãóìåíòû êîòîðûõ
'ñîäåðæàò ñëàãàåìûå, ÷üè âåëè÷èíû èçìåíÿþòñÿ îò nCurrent â àðãóìåíòå
'ïåðâîãî ñèíóñà äî nLast â àðãóìåíòå ïîñëåäíåãî ñèíóñà. Ïàðàëëåëüíî
'ôóíêöèÿ ñòðîèò ñòðîêó, ïðåäñòàâëÿþùóþ ñîáîé ðàñ÷åòíîå âûðàæåíèå.
Function MyCos(ByVal nCurrent As Long, ByVal nLast As Long) As Variant
    Dim v(1) As Variant, MyC As Variant
    If nCurrent <> nLast Then
        MyC = MyCos(nCurrent + Sgn(nLast - nCurrent), nLast)
        v(0) = Cos(nCurrent + MyC(0))
        v(1) = "Cos(" & nCurrent & " + " & MyC(1) & ")"
        MyCos = v
    Else
        v(0) = Cos(nLast)
        v(1) = "Cos(" & nLast & ")"
        MyCos = v
    End If
End Function
'Ïðîöåäóðà âûâîäà èòîãîâ âû÷èñëåíèÿ âëîæåííûõ ñèíóñîâ.
Sub TellMyCos()
    Dim v As Variant
    v = MyCos(1, 3)
    MsgBox "Âûðàæåíèå:" & vbCr & _
            "y = " & v(1) & vbCr & _
            vbCr & "Ðåçóëüòàò: " & vbCr & _
            "y = " & Format(v(0), "0.00000"), , "Ðàñ÷åò"
End Sub