Private Function ExtractFileName(ByVal vStrFullPath As String) As String
    Dim intPos As Integer
    intPos = InStrRev(vStrFullPath, "\")
    ExtractFileName = Mid$(vStrFullPath, intPos + 1)
End Function