Sayının sonundaki eksiyi başa getirmek

[desk]

Sub Dosya_İsimleri()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("c:\deneme\")
Set dc = f.Files
For Each Dosya In dc
c = c + 1
Cells(c, 1) = Dosya.Name

dosya.name nin

dosya ismi xls olduğunu farz edersek yazacağı dosya.xls nin .xls kısmını nasıl sildirebiliriz.?

 

[desk]

arkadaşlar yokmu bilgisi olan yardım edebilecek biri.?