FileName (2)

Function fin(fi)
'gets file name

fin = Mid(fi, InStrRev(fi, "\") + 1, Len(fi))
End Function

Private Sub Form_Load()
'passes full path to file name

MsgBox fin ("c:\blah\fin\myfilename.txt")
End Sub