Menú en VB

Bueno eso es más simple. Lo que tienes que hacer es declarar 5 variables (5 o la cantidad de archivos que quieras memorizar, si es infinita cambia un poco el código, si me lo pedís luego te lo paso también). Y cada vez que abrís exitosamente un archivos guardas en la 1ra la dirección del archivo, si esta sin dirección, sino la guardas en la 2da y así hasta guardarla en el 5to, así seria un ejemplo:
dim d1,d2,3,4,5 as string '(esto en la parte de publico o para que sea disponible en todo el formulario)
'Cada vez que abris un archivo pones:
if len(d1)=0 then
d1='aca pones la direccion'
elseif len(d2)=0 then
d2='aca pones la direccion'
elseif len(d3)=0 then
d3='aca pones la direccion'
elseif len(d4)=0 then
d4='aca pones la direccion'
else
d5='aca pones la direccion'
Endif
Eso es en forma general, luego vos lo adaptas a tu programa.

He aquí una manera de hacerlo:
La idea es crear una opción del Menú de Archivo (imagino) y las propiedades:
Caption: "Hist_Arch" (En realidad no importa)
Name: "histarch"
Index: 0
El historial de Archivos abiertos va en el Archivo de Texto "listarch.txt" en el Directorio de la Aplicación.
El Evento Load del Form:
Private Sub Form_Load()
Dim i As Byte, archivo As String
'Si existe el historial lo carga en el Menú
If Dir(App.Path & "\listarch.txt") <> "" Then
i = 0
Open App.Path & "\listarch.txt" For Input As #1
While Not EOF(1)
Input #1, archivo
If i = 0 Then 'Primero de la Lista
histarch(0).Caption = archivo
Else
Load histarch(i) 'Crea nuevo ítem del Menú
histarch(i).Caption = archivo
End If
i = i + 1
Wend
Close 1
Else
'De lo contrario cambia el Caption y bloquea la opción
histarch(0). Caption = "Sin Archivos"
histarch(0).Enabled = False
End If
End Sub
El Evento Click del Menú histarch:
Private Sub histarch_Click(Index As Integer)
If Dir(App.Path & "\" & histarch(Index).Caption) = "" Then
MsgBox "El archivo no existe", , "Error"
Else
'Aquí el Código para abrir el archivo
verif_menu(histarch(Index).Caption))
End If
End Sub
Cuando se abra el archivo, si existe, llama la función verif_menu y pasa como parámetro el nombre del Archivo abierto. La función:
Sub verif_menu(a As String)
Dim i As Byte, max_hist As Byte
max_hist = 5 'Número máximo de archivos en el Historial
'Ningún Archivo. Agrega el Nuevo Archivo
If histarch.Count = 1 And histarch(0).Enabled = False Then
histarch(0).Caption = a
histarch(0).Enabled = True
Open App.Path & "\listarch.txt" For Append As #1
Write #1, a
Close 1
Exit Sub
End If
'Ya existen archivos. Menos de max_hist. Agrega Archivo
If histarch.Count < max_hist Then
'Verifica si ya existe
For i = 0 To histarch.Count - 1
If histarch(i).Caption = a Then Exit Sub
Next i
Load histarch(histarch.Count)
histarch(histarch.Count - 1).Caption = a
Open App.Path & "\listarch.txt" For Append As #1
Write #1, a
Close 1
Exit Sub
End If
'Más de max_hist archivos. Actualiza la Lista. Agrega Archivo
Kill App.Path & "\listarch.txt"
Open App.Path & "\listarch.txt" For Append As #1
For i = 1 To max_hist - 1
histarch(i - 1).Caption = histarch(i).Caption
Write #1, histarch(i - 1).Caption
Next i
histarch(i - 1).Caption = a
Write #1, histarch(i - 1).Caption
Close 1
End Sub
Para el ejemplo asumo que los archivos que se abren están el Directorio de la Aplicación, pero puede cambiarse, claro ...
Es todo.
Suerte !
Rogers R.

Según vayas abriendo archivos, por código tendrás que ir añadiendo elementos de menu al menu que tengas en pantalla.

No entendí que archivos y como quieres ver la historia.
Me puedes explicar un poco más