diff --git a/VBA/fpvt.frm b/VBA/fpvt.frm
index caaab9a..46a254c 100644
--- a/VBA/fpvt.frm
+++ b/VBA/fpvt.frm
@@ -98,8 +98,8 @@ End Sub
 Private Sub opEditPrice_Click()
     opPlugVol.Visible = False
     opPlugPrice.Visible = False
-    opPlugPrice.Value = True
-    opPlugVol.Value = False
+'    opPlugPrice.Value = True
+'    opPlugVol.Value = False
 
     tbFcPrice.Enabled = True
     tbFcPrice.BackColor = &H80000018
@@ -181,26 +181,20 @@ End Sub
 
 Private Sub tbpd_Change()
     If load_tb Then Exit Sub
-    If Not VBA.IsNumeric(tbpd.Value) Then
-        tbpd = "0"
-    End If
+    If Not VBA.IsNumeric(tbpd.Value) Then Exit Sub
     tbFcVal = (bVal + pVal) * (1 + tbpd.Value / 100)
 End Sub
 
 Private Sub tbpp_Change()
     If load_tb Then Exit Sub
-    If Not VBA.IsNumeric(tbpd.Value) Then
-        tbpd = "0"
-    End If
+    If Not VBA.IsNumeric(tbpd.Value) Then Exit Sub
     tbFcPrice = (bPrc + pPrc) * (1 + tbpp.Value / 100)
     Me.load_mbox_ann
 End Sub
 
 Private Sub tbpv_Change()
     If load_tb Then Exit Sub
-    If Not VBA.IsNumeric(tbpv.Value) Then
-        tbpd = "0"
-    End If
+    If Not VBA.IsNumeric(tbpv.Value) Then Exit Sub
     tbFcVol = (bVol + pVol) * (1 + tbpv.Value / 100)
 End Sub