Trim The OFD File Name Down

Dim File_Path$ = ProgramToSaveTxt.Text
        Dim FileName_Pieces$() = File_Path.Split("\")
        Dim File_Name$ = ""
        File_Name = FileName_Pieces(FileName_Pieces.Length - 1)