Sub 與 End Sub ；Function 與 End Function 是配對出現的。。
壹、首先，把妳代碼中最上面的那行即：Private Sub 大寫金額_BeforeUpdate(Cancel As Integer)和最下面的那行即：End Function去掉。
二、然後，妳選中窗體中大寫金額:後面顯示未綁定的那個文本框控件，記下控件名稱（假設控件名稱為Text2）。
三、接著，妳再選窗體中付款金額:後面顯示未綁定的那個文本框控件（假設控件名稱為Text0）
1、點擊右側屬性窗口上方的事件選項卡，
2、再點選更新後後面的空格，再點Ⅴ按鈕選事件過程，再點後面的…按鈕。
四、最後，在彈出的空白事件過程中寫入下面這段代碼。也就是把代碼復制到光標閃爍處（即 Private Sub Text0_AfterUpdate() 和 End Sub 中間）即可：
註意：必須用上面我提到的 Text0、Text2 兩個文本框控件的實際名稱替換下面的 Text0、Text2 後才能使代碼生效！切記！！
If Text0 = "" Then
Text2 = ""
Else
Text2 = dxzh(Text0)
End If