Example:

  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