خطا های کد

[RASOOL77]

با سلام من همین امروز شروع به یاد گرفتن ویژوال کردم لطفا ایرادات کد زیر رو به من بگید.
Private Sub Command1_Click()
Dim d, r, pi, s
Const pi As Single = 3.14159
d = Text1.Text
r = d * pi / 180
s = r - (r ^ 3 / 6) + (r ^ 5 / 120) - (r ^ 7 / 5040)
Print s
End Sub

[sa1378]

اول بگو S چیه؟
چی رو داره حساب میکنه؟
دوم اینکه بهتره متغیر هارو درست تعریف کنی(کارت بهتر میشه):
dim a(b,c,...) as integer(double,single,...) : example