Hola!!
Para lo del "archivo1,archivo2", es el mismo procedimiento pero agregandole el indice al nombre del archivo, ademas para que no se agreguen datos al final, abrelos con OUTPUT.
Para el Shell, pasale la ruta que quieras, con eso no hay problema, mira:
Código vb:
Ver originalPublic Indice as integer
Dim TMP
archivo = FreeFile
Indice=Indice+1
'CREAR EL ARCHIVO CON UN INDICE
Open App.Path + "\Loggeo - " & Indice & ".txt" For Output As #archivo
Print #archivo, texto
Close #archivo
'ABRIR EL ARCHIVO CREADO EN APP.APTH
TMP=SHELL("notepad " & App.path & "\Loggeo - " & Indice & ".txt", vbnormalfocus)