Example - Cos Function

Sub Main()
    Dim I As Single ' Declare variables.
    For I =1 To 10
        Msg = Msg & Cos(I) & ", " 'Cos Function Call
    Next I
    MsgBox Msg ' Display results.
End Sub