Option Explicit
Sub main()
Dim s As Double
Dim ret As String
Const pi = 3.14159265
For s = 0 To 2 Step 0.1
    ret = ret + Chr(10) + Str(Sin(s) * pi)
Next s
MsgBox ret
End Sub