strMyFilename = Mid(strMyPath,InstrRev(strMyPath,"\")+1)