Highlight listbox value if textbox value found in column 2

Good evening all

I have been messing about with this for a wee while to no avail.

This code highlights the list value when a match is found with the textbox value, this works well,, apart from if the list value is numerical...

What I'm looking for please is to highlight the list value if the textbox value is found in column 2..
Your help is much appreciated

many thanks

JT

Private Sub txtDelDep_Change()
Dim n As Long
With lstDepartment
    For n = 0 To .ListCount - 1
        If txtDelDep = .List(n) Then
            .ListIndex = n
            Exit Sub
        End If
    Next n
.ListIndex = -1
End With
End Sub