Code for currency value in Textbox to now also allow N/A

[ipbr21054]

On my userform i have this in a textbox.
Currently it will only allow a currency value.
But i now have a reason to have it allow N/A or a currency value.


Anything other than a currency value then pops up the Message.

Please advise thanks.

Private Sub TextBox5_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(TextBox5) = 0 Then Exit Sub
    If IsNumeric(TextBox5) Then
        TextBox5 = Format(TextBox5, "£#,##0.00")
    Else
        MsgBox "THE QUOTED VALUE MUST BE £ FIGURE.", vbCritical, "THERE WAS NO £ IN QUOTED FIELD MESSAGE"
        TextBox5 = ""
        Cancel = True
    End If
End Sub

 

[6StringJazzer]

Give this a try. I did not set up a new file to try to match yours to test this.

Private Sub TextBox5_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(TextBox5) = 0 Then Exit Sub
    If IsNumeric(TextBox5) Then
        TextBox5 = Format(TextBox5, "£#,##0.00")
    ElseIf TextBox5 <> "N/A" Then
        MsgBox "THE QUOTED VALUE MUST BE N/A OR £ FIGURE.", vbCritical, "THERE WAS NO £ IN QUOTED FIELD MESSAGE"
        TextBox5 = ""
        Cancel = True
    End If
End Sub

 

[ipbr21054]

Worked fine thanks