Wait for Notepad to open file

Hi, Looking to change up my code it doesn't stop and wait for the file to open so the send keys doesn't work.

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

All the macro is trying to do is primarily open and save the file depending on the date. It will run a total of 10 times. It has no problem with smaller files but one it reaches some of size it begins to open the additional files and skips the sendkeys function.

If your attempting to Open/Edit/Close text files then you should look at the commands that involve opening files for input

example colde here shows "Open .. for Input" method to open and edit text files.

F1 = FreeFile
Open SourceFile For Input As F1

Sub ReplaceTextInFile(SourceFile As String, _
    sText As String, rText As String)
Dim TargetFile As String, tLine As String, tString As String
Dim p As Integer, i As Long, F1 As Integer, F2 As Integer
    TargetFile = "RESULT.TMP"
    If Dir(SourceFile) = "" Then Exit Sub
    If Dir(TargetFile) <> "" Then
        On Error Resume Next
        Kill TargetFile
        On Error GoTo 0
        If Dir(TargetFile) <> "" Then
            MsgBox TargetFile & _
                " already open, close and delete / rename the file and try again.", _
                vbCritical
            Exit Sub
        End If
    End If
    F1 = FreeFile
    Open SourceFile For Input As F1
    F2 = FreeFile
    Open TargetFile For Output As F2
    i = 1 ' line counter
    Application.StatusBar = "Reading data from " & _
        TargetFile & " ..."
    While Not EOF(F1)
        If i Mod 100 = 0 Then Application.StatusBar = _
            "Reading line #" & i & " in " & _
            TargetFile & " ..."
        Line Input #F1, tLine
        If sText <> "" Then
            ReplaceTextInString tLine, sText, rText
        End If
        Print #F2, tLine
        i = i + 1
    Wend
    Application.StatusBar = "Closing files ..."
    Close F1
    Close F2
    Kill SourceFile ' delete original file
    Name TargetFile As SourceFile ' rename temporary file
    Application.StatusBar = False
End Sub

Private Sub ReplaceTextInString(SourceString As String, _
    SearchString As String, ReplaceString As String)
Dim p As Integer, NewString As String
    Do
        p = InStr(p + 1, UCase(SourceString), UCase(SearchString))
        If p > 0 Then ' replace SearchString with ReplaceString
            NewString = ""
            If p > 1 Then NewString = Mid(SourceString, 1, p - 1)
            NewString = NewString + ReplaceString
            NewString = NewString + Mid(SourceString, _
                p + Len(SearchString), Len(SourceString))
            p = p + Len(ReplaceString) - 1
            SourceString = NewString
        End If
        If p >= Len(NewString) Then p = 0
    Loop Until p = 0
End Sub

Sub TestReplaceTextInFile()
    ReplaceTextInFile ThisWorkbook.Path & _
        "\ReplaceInTextFile.txt", "|", ";"
    ' replaces all pipe-characters (|) with semicolons (;) 
End Sub

The files are being sent down from a server and some of the data is garbled. So the only way to fix the files is to manually open and save the files. However I'd like to be able to do this without having to manually sit and wait each morning.

Thanks Leith! It's like a rocketship compared to what I was attempting to run.

Still having issues as the way the files are written they must be opened in notepad to remove the hard returns and other garbage that's being passed down.