combobox

ich habe folgendes geschrieben:
Private Sub UserForm_Activate()
Dim Dateiname As String
Dateiname = Dir("c:\Eigene Dateien\Sebastian\Datenbank\*")
If Dateiname <> "" Then
Box1.AddItem Dateiname
Do
Dateiname = Dir
If Dateiname <> "" Then Box1.AddItem Dateiname Else Exit Do
Loop
End If
End Sub

frage!!
die anzeige in der combobox (Box1) ist z.b. 111.txt
ich möchte aber nur 111 und nicht die art der datei anzeigen lassen.

mfg bastl