Repost - Shell Wait for Notepad to open file and Save

So I asked this the other night and the Binary function supplied is not the same as opening the file in notepad. I have code that checks the modified date of the file and opens in wordpad.exe Then it saves the file. There are approximately 10 files and 10macros that I'm calling and some of the files take a couple of minutes to open. So all of the files are opening in Notepad at once and my sendkeys command is not always working.
The file must be opened and saved in notepad to remove some erroneous data that exists.

Sub FileLastMod()

Dim oFS As Object
Dim strFilename As String
Dim n As Integer
Dim firstdate As Date
Dim seconddate As Date
    'Put filename here
strFilename = "g:\Jim.txt"
    Set oFS = CreateObject("Scripting.FileSystemObject")
    firstdate = Date
    seconddate = oFS.GetFile(strFilename).Datelastmodified
    n = DateDiff("d", firstdate, seconddate)
'Begin first leg of code here
On Error Resume Next
If n = 0 Then
    Shell "notepad.exe g:\Jim.txt", vbNormalFocus
    SendKeys "^s", (wait)
    DoEvents
    SendKeys "%fx"
If n = 0 Then Exit Sub
End If

'Begin 2nd leg of code here - checks to see if it's Sunday or Monday
If Weekday(Date) = 1 Or Weekday(Date) = 2 Then
    Shell "notepad.exe g:\Jim.txt", vbNormalFocus
    SendKeys "^s", (wait)
    DoEvents
    SendKeys "%fx"
If n = 0 Then Exit Sub
End If
    
'Begin 3rd leg of code here - waits for files to be updated
Do
    strFilename = "g:\Jim.txt"
    Set oFS = CreateObject("Scripting.FileSystemObject")
    firstdate = Date
    seconddate = oFS.GetFile(strFilename).Datelastmodified
    n = DateDiff("d", firstdate, seconddate)
    Loop Until n = 0
If n = 0 Then
    Shell "notepad.exe g:\Jim.txt", vbNormalFocus
    SendKeys "^s", (wait)
    DoEvents
    SendKeys "%fx"
If n = 0 Then Exit Sub
End If
End Sub

Norie - I've tried that and it doesn't work. Each macro just needs to complete before the next one begins.

The files are being downloaded from a server and contain various hard returns and data out of place.
Here's the code that I have tried that doesn't work.

Sub ReadWriteFile()

    Dim Data() As Byte
    Dim Filespec As String
    
    Filespec = "G:\Jim.txt"
    
    Open Filespec For Binary Access Read As #1
        ReDim Data(LOF(1))
        Get #1, , Data
            Open Filespec For Binary Access Write As #2
                Put #2, , Data
            Close #2
    Close #1
         
End Sub

The code works but just doesn't modify the files as notepad does. The reason for opening in notepad is there are hard returns and formatting issues with the data ie special formatting characters that are removed when the file is opened and saved in notepad.
Is there any way to remove these characters that exist with the binary process? For example the non-prining symbols that you would see in word if you hit the formatting tool.

i get an error on this line

Input #1, , Data

wish i could but it's proprietary

After viewing the file in Notepad it's showing a string of 3 nulls, if there were any way to remove those it would make me very happy.