VBA form will vlookup either text or numbers but not both

[ScallN20]

Hi All

I have another issue with the parts form I'm creating, I thought it was working but when building it originally I used only part numbers that were entirely numbers (Such as 439557) and in testing I have found that it wont work with part numbers that have a letter in them (Such as N01011).

I have found that if I add

"dim x as Double"

then the vlookup works for numbers but doesn't work for text same as

"x = val.parttxt"

works for numbers. and if I remove them entirely as is shown below it works for the part numbers with letters in... any ideas?

Private Sub PartTxt_AfterUpdate()


If WorksheetFunction.CountIf(Sheet1.Range("A:A"), Me.PartTxt.Value) = 0 Then
MsgBox "Part not found!"
Exit Sub
End If
With Me




x = PartTxt
    DesTxt.Value = Application.WorksheetFunction.VLookup(x, Worksheets("PartsData").Range("A:B"), 2, 0)
End With


End Sub

Thanks in advance