Обрезание знаков в Listbox или Combobox - VB

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

Здравствуйте! Проблема в следующем: В определенной папке лежат файлы .ini с именами пользователей, названия всех файлов начинаются с 'user-', к примеру 'user-Wowa.ini', внутри сохранены различные настройки пользователя, но не о том речь... Нужно чтобы listbox или combobox при нажатии на определенную кнопку заполнялись названиями этих файлов, но показывались без 'user-' спереди и '.ini' сзади... Как это воплотить в жизнь, уважаемые?

Решение задачи: «Обрезание знаков в Listbox или Combobox»

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

                            Private Sub Form_Load()
    Dim objFSO As New FileSystemObject
    Dim objFile As File
    
    Combo1.Clear
    
    For Each objFile In objFSO.GetFolder('T: ').Files
        If Left$(objFile.Name, 5) = 'user-' Then
            If Right$(objFile.Name, 4) = '.ini' Then
                Combo1.AddItem Replace(Replace(objFile.Name, '.ini', '', , , vbBinaryCompare), 'user-', '', , , vbBinaryCompare)
            End If
        End If
 
    Next objFile
    
    Set objFSO = Nothing
    Set objFile = Nothing
 
End Sub
                        