Why does this worksheet event - Error: Type Mismatch ?

[JumboCactuar]

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Item As String
Dim NItem As String
Dim rFound As Range

Lresult = Len(Target)

'Avoid the endless loop:
Application.EnableEvents = False

Item = Target.Value

If Lresult = 10 Then
    With Sheets("Sheet2")
        Set rFound = .Columns(1).Find(What:=Item, After:=.Cells(1, 1) _
                , LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows _
                , SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    
        On Error GoTo 0
    
    End With
MsgBox (Item)
   
ElseIf Lresult = 15 Then
NItem = Val(Left(Item, 13))
        With Sheets("Sheet2")
        Set rFound = .Columns(1).Find(What:=NItem, After:=.Cells(1, 2) _
                , LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows _
                , SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    
        On Error GoTo 0

    End With
MsgBox (NItem)
    
Else
    
End If

'Enable the Events again:
Application.EnableEvents = True

End Sub

The error occurs at: Find(What:=NItem

I'm guessing due to the left function but can't figure out a solution

Anyone see anything wrong?

Basically wanting to use the first 10 characters in lookup when the Len is 15

Appreciate any help

 

[mole999]

i'm wondering if
NItem = Val(Left(Item, 13)) needs to have VAL as it has been Dimmed as STRING

 

[JumboCactuar]

i'm wondering if
NItem = Val(Left(Item, 13)) needs to have VAL as it has been Dimmed as STRING

Yes this is what I tried but it still fails

Also tried declaring item as variant / double
Still same error

 

[RoryA]

You're searching column A but specifying to start after a cell in column B. Change, or remove, the After argument.

 

[JumboCactuar]

You're searching column A but specifying to start after a cell in column B. Change, or remove, the After argument.

Well spotted, thankyou
Don't know how I missed that