MsgBox if TextBox is not empty

[NDMDRB]

Hello,

I have a userform with some textboxes and command buttons (one of them, "cmdClose")

I need to code the following scenario
If I click "cmdClose" and the textamount is greater than Zero, pop up msgbox with vbYesNo, if I click Yes, close the userform, else, do nothing
And if txtamount is Zero or null, close the userform without msgbox

I have the following code that works if the txtamount is greater than Zero, but if txtAmount is empty it does nothing

Private Sub cmdClose_Click()
If Me.txtAmount.Value > 0 Then


result = MsgBox("Are you sure?", vbYesNo + vbCritical, "Closing POS")
If result = vbYes Then
Unload Me
Else
End If
End If
End Sub

 

[Fluff]

Try

If Val(Me.txtAmount.Value) > 0 Then

 

[NDMDRB]

It works the same,
Still if the txtamount is 0 or empty, the form doesn't close

 

[Fluff]

oops missed that bit, try

If Val(Me.txtAmount.Value) > 0 Then
   If MsgBox("Are you sure?", vbYesNo + vbCritical, "Closing POS") = vbNo Then Exit Sub
End If
Unload Me