Looking up a "banned" item from a Userform with VBA lockup

[Grizlore]

I am looking for some help please, I am sure it is something simple.

When I enter a numerical value into the Userform textbox "txtRTAs" I would like it to look at a worksheet to see if the number is there. IF it is, then I want a simple MsgBox to inform that this number is there and "banned"

The code works for letters, but not for numberical values. I guess it is something simple, but it is rather frustrating as I cant fathom it out.

Any help would be greatly appreciated! The code below is the small section which isn't working

Sub IsItBANNED()

Dim LookUpIfBanned 'as I have tried several


LookUpIfBanned = txtRTAs


If Not IsError(Application.VLookup(txtRTAs, Worksheets("banned").Range("TheseAreBanned"), 2, False)) Then
MsgBox "this is banned", vbCritical, "BANNED ALERT"

End If


End Sub

 

[mikerickson]

The problem is that the value in a text box is always a String. It needs to be converted to a number for VLOOKUP to work properly.

Dim LookUpIfBanned as Variant

LookUpIfBanned = txtRTAs.Text

If IsNumeric(LookUpIfBanned) Then LookUpIfBanned = CDbl(LookUpIfBanned)

If Not IsError(Application.VLookup(LookUpIfBanned, Worksheets("banned").Range("TheseAreBanned"), 2, False)) Then

'etc

End If

 

[Grizlore]

MANY THANKS

works like a dream... and now I can go to bed

I appreciate your time and help