First off, here is my code:

Private Sub PopoutLeadListBox_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim selectedItem As String
selectedItem = Me.PopoutLeadListBox.Column(11)

SalesForm.BHSDTAPNAMELF.Value = Application.XLookup(Val(selectedItem), Worksheets("MASTER TAPS").Range("S:S"), Worksheets("MASTER TAPS").Range("T:T"))
SalesForm.BHSDCOMPANYNAMELF.Value = Application.XLookup(Val(selectedItem), Worksheets("MASTER TAPS").Range("S:S"), Worksheets("MASTER TAPS").Range("U:U"))
End Sub
This is working great on a few of the items in my list box. However, most of them give me a type mismatch error, and the fact that it's not working on some items but is on others with no discernible difference between the items is confusing.

I have tried replacing Val with CInt or CLng but that hasn't helped, and I'm a bit out of my depth here.

Am I missing something simple?