Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, Optional ByVal lpParameters As String, Optional ByVal lpDirectory As String, Optional ByVal nShowCmd As Long) As Long

Property Get AppPath() As String
  AppPath = App.Path
 
  If (Right$(AppPath, 1) <> "\") Then AppPath = AppPath & "\"

End Property

Sub LoadMenus()
  On Error GoTo Errors
 
      Dim hFile%, iCnt%
      Dim sLine$, iPos%

  hFile = FreeFile
 
  Open AppPath & "favoritos.txt" For Input As #hFile
 
  iCnt = -1
 
  Do
    iCnt = iCnt + 1
   
    If iCnt > 0 Then
      Call Load(mnuFavorite(iCnt))
    End If
   
    Line Input #hFile, sLine
   
    iPos = InStr(1, sLine, ":")
   
    mnuFavorite(iCnt).Caption = Left$(sLine, iPos - 1)
    mnuFavorite(iCnt).Tag = Mid$(sLine, iPos + 1)
    mnuFavorite(iCnt).Visible = True
   
  Loop While (Not EOF(hFile))
 
Errors:
  Close #hFile
End Sub

Private Sub Form_Load()
  Call LoadMenus
End Sub

Private Sub mnuFavorite_Click(Index As Integer)
  Call ShellExecute(0&, vbNullString, mnuFavorite(Index).Tag)
End Sub