Bueno, yo no te hice ninguna función pero puedes probar con esto:
Código Visual Basic:
Ver originalDim s As String
s = Mid(Text1, InStrRev(Text1, "\") + 1, Len(Text1))
Label1.Caption = s
Se supone que en Text1 tienes la ruta y el nombre del archivo.
Saludos
