Unable to delete numbers in table

I have a Userform which have a list display of the items in table. The code below is used to delete the selected row in the table. I am able to select and delete items with alphabets. However, when I tried to select and delete pure numbers, the variable

found = True

appears to be false despite the numbers appear in the list display. I suspect the problem comes from

Me.lstDisplay.Value

. Kindly guide me to the right direction. Thanks.

Dim x, ws As Worksheet, found As Boolean

    With ws.ListObjects(1)
        x = Application.Match(Me.lstDisplay.Value, .DataBodyRange.Columns(1), 0)
        If Not IsError(x) Then .ListRows(x).Delete: found = True
    End With