Private Sub cmdstart_Click()
If txtArea = "" Then
MsgBox "Please enter a radius"
Else: lblDi = txtArea * 2
lblCi = lblDi * 3.14
lblAr = 3.14 * txtArea * txtArea
End If
End Sub