Example - Cos Function

1. Sub Main()

   1. Dim I As Single ' Declare variables.

      For I =1 To 10

      1. Msg = Msg & Cos(I) & ", " 'Cos Function Call

      Next I

      MsgBox Msg ' Display results.

   End Sub