dateiliste ohne endung erstellen

ich benutze folgenden code, um eine dateiliste zu erstellen. was mache ich aber, eine liste ohne die dateiendung zu bekommen?

Private Sub test()
Dim Pfadname As String
Dim Dateiname As String
Dim x As Integer

Pfadname$ = "C:\My Music\dream 1\*.*"
Dateiname$ = Dir$(Pfadname$, 1)

x = 1

Do While Dateiname$ <> ""

ActiveSheet.Cells(x, 1) = x
ActiveSheet.Cells(x, 2) = Dateiname$
Dateiname$ = Dir$()
x = x + 1
Loop
End Sub

danke schonmal im voraus