Mencari Keliling Lingkaran Kiwiiwew

Private Sub CmdHapus_Click()
TxtPhi = ""
TxtJariJari = ""
TxtKeliling = ""
End Sub

Private Sub CmdHitung_Click()
Dim P, r, K As Integer
P = (22 / 7)
r = TxtJariJari
K = (22 / 7) * 2 * r

TxtPhi = P
TxtJariJari = r
TxtKeliling = K
End Sub

Private Sub CmdKeluar_Click()
 DoCmd.Save
 DoCmd.Close
End Sub