Force Currency Conversion (In Textbox)

This Forces Currency Conversion on numbers entered into a text box and includes the £ sign as well.

Diclare Data Holders @ top of code.

Dim bClosing As Boolean Private Sub txtAmt_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim iReply As Integer 'Prevents the error message if they choose to Cancel. If bClosing = True Then Exit Sub If txtAmt = vbNullString Then 'Left blank iReply = MsgBox("This is a mandatory amount field. " _        & "Please click 'Retry', or Cancel to close the form.", _         vbInformation + vbRetryCancel) If iReply = vbCancel Then ' They want to close the form bClosing = True Unload Me 'Close the UserForm Else 'They wish to enter an amount txtAmt.Value = 0 Cancel = True 'Return focus back to Textbox End If    ElseIf Not IsNumeric(txtAmt) Then 'Not a number iReply = MsgBox("Entry must be numeric " _        & "Please click 'Retry', or Cancel to close the form.", _         vbInformation + vbRetryCancel) If iReply = vbCancel Then ' They want to close the form bClosing = True Unload Me 'Close the UserForm Else txtAmt.Value = 0 Cancel = True 'Return focus back to Textbox End If    Else ' all ok, simple fortmat as curreny txtAmt = Format(txtAmt, "£0.00") End If End Sub

Code Snippits