It's as simple as this:

   Dim V As Variant
   Dim I As Integer
   Dim Fname As String
   Dim F

       V = GetFiles
           
           If Not IsEmpty(V) Then
               For I = 0 To UBound(V)
                   Fname = StrReverse(Split(StrReverse(V(I)), "\", 2)(0))
               
                   LstXlsFiles.AddItem Item:=Fname
               Next I
                       
           End If

It works on my machine as is always the case, and bombs on others.  Thanks.