Notepad replace all

Hello,

I am have a large (very large, 138k rows) spreadsheet that a coworker needs in a an .xls format for the backend of an application. I understand that this wont work, due to .xls row limits so, we decided on a delimited file. Whatever wizard she is using (i am unfamiliar with) to import the data into her application gives her the option for a | (pipeline) delimited file.

I saved the report as a tab delimited file with the intention to do a replace all from tab character to |. I am currently using this routine but....

Sub Notepad()

    Dim appNotepad
    Dim file
    Dim strTab
    Dim strPipe
    file = "notepad C:\Users\Micheal\Documents\test.txt"
    appNotepad = Shell(file, vbNormalFocus)
    AppActivate appNotepad
    strTab = "	"
    Debug.Print strTab
    strPipe = "|"
    SendKeys "%ER" & strTab & "{Tab}" & strPipe & "%A", False

End Sub

Notepad doesn't seem to recognize the Tab string.

This is driving me nuts.