Luas & kel lingkaran visual basic

Berikut ini adalah salah satu program untuk menghitung luas dan keliling lingkaran menggunakan visual basic.

Option Explicit
Dim r As Single, l As Single, k As Single

Private Sub Command1_Click()
    r = CSng(Text1)
    l = 3.14 * (r ^ 2)
    k = 2 * 3.14 * r
    Text2 = CCur(l)
    Text3 = CCur(k)
End Sub

Private Sub Command2_Click()\
    End
End Sub