Function ReturnFileName (F As String) As String

Dim Temp As String
Dim StartPos As Long

StartPos = InStr(F, "\")

If StartPos = 0 Then
    ReturnFileName = F
    Exit Function
End If

F = Right$(F, Len(F) - StartPos)
Temp = ReturnFileName(F)
ReturnFileName = Temp

End Function