I need for a check box when checked to verify whether a textbox has a certain value in it's field, and if it doesn't, it needs to create a MsgBox telling the user that they must enter an amount in that field. This is my code:

[CODE=vb]Public Function VerifyAmount()
Dim amount As Currency
amount = txtOpenBalance
If amount = 0 Then
MsgBox("Please Enter an Amount for the Open Balance", vbOKOnly,...