Пишите свою функцию. Например, так

Private Sub Кнопка_Click()
        MsgBox ArcCos(45)
End Sub

Private Function ArcCos(degrees As Long) As Double
        Dim radians As Double
        radians = 3.14 / 180# * degrees
        ArcCos = 1# / Cos(radians)
End Function

Да, в скобках надо указать градусы.