If I do this once with NotePad, it's in the system memory
I'm not sure why you need to open it with Notepad first since VBA doesn't really care


Dim iFileNum as long

file = dir(dataform.file1) 'user selects a file in the root folder with getopenfilename
 
Do While[/COLOR] file <> "" 
     If instr(file, ".bms") > 0 Then
        iFileNum=FreeFile
         Open file ForRandom As #iFileNum 
          'do things with awesome code
        Close #Ifilename


    Else instr(file, ".load") > 0 Then
        iFileNum=FreeFile
         Open file For Random As #iFileNum 
          'do things with awesome code
        Close #Ifilename


         etc.


     End If
    file = dir 
Loop