Dim pine, r, sum As Double
        r = InputBox("ป้อนค่า r:", "โปรแกรมคำนวณหาพื้นที่วงกลม")
        pine = 3.14
        sum = pine * (r * r)
        MsgBox("พื้นที่วงกลม =" & sum)