Копирование из FileListBox в ListBox без расширений файлов - VB

Формулировка задачи:

при копировании из FileListBox в ListBox копируются и расширения файлов, как сделать так чтобы расширения не копировались. Расширение файлов *.tbl.

Решение задачи: «Копирование из FileListBox в ListBox без расширений файлов»

textual
                            Листинг программы 
                        

                            Private Function CopyListToList(source As FileListBox, target As ListBox) As Long
  Dim c As Long
  Const LB_GETCOUNT = &H18B
  Const LB_GETTEXT = &H189
  Const LB_ADDSTRING = &H180
  Dim numitems As Long
  Dim sItemText As String * 255
  
  Dim PosChar0 As Long
  Dim PosPoint As Long
  Dim Length As Long
  
  numitems = SendMessageLong(source.hWnd, LB_GETCOUNT, 0&, 0&)
  If numitems > 0 Then
    For c = 0 To numitems - 1
      SendMessageStr source.hWnd, LB_GETTEXT, c, ByVal sItemText
      
      ' позиция нулевого символа - Chr(0)
      PosChar0 = InStr(sItemText, Chr(0))
      ' позиция точки (разделителя)
      PosPoint = InStr(sItemText, '.')
      If PosPoint > 0 Then ' файл с расширением
        Length = PosChar0 - PosPoint ' длина расширения
        Mid(sItemText, PosPoint, Length) = String(Length, Chr(0))
      End If
      
      SendMessageStr target.hWnd, LB_ADDSTRING, 0&, ByVal sItemText
    Next
  End If
  numitems = SendMessageLong(target.hWnd, LB_GETCOUNT, 0&, 0&)
  CopyListToList = numitems
End Function
                        