Dosya uzantısından dosya ismi bulma

Asagidaki kod ile dosya uzantısından dosya ismini bulabilirsiniz

Dim str As String
Dim strarr() As String
str = "c:\deneme\deneme\deneme\deneme.txt"
strarr = Split(str, "\")
For i = LBound(strarr) To UBound(strarr)
If i = UBound(strarr) Then
msgbox strarr(i)
Else
End If
Next