If Dir(FName & "\*.msu") = vbNullString Then
    MsgBox "error no se encuentra archivo msu" & FName
End If

C:\Users\Administrador\Desktop\Windows6.1-KB2492386-x64.msu

Private Sub Command1_Click()
Dim archivo As String
    archivo = Dir("C:\Users\Administrador\Desktop\*.msu")
    While archivo <> ""
        Shell archivo
        archivo = Dir
    Wend
End Sub
 

 
Private Sub opendir_Click()
   Dim FName As String
FName = BrowseFolder(Caption:="Selecciona una carpeta")
If FName = vbNullString Then
    Debug.Print "No Folder Selected"
Else
    Debug.Print "Selected Folder: " & FName
End If
End Sub
 
Private Sub Check6_Click()
If Check6.Value = 1 Then
    Text6.Enabled = True
ElseIf Check6.Value = 0 Then
    Text6.Enabled = False
End If
End Sub
 
 
Private Sub english_Click()
Check6.Caption = "Reset PC after install updates."
Frame1.Caption = "Additional options"
opendir.Caption = "Open directory..."
virus.Caption = "File"
salir.Caption = "Exit"
Sobre.Caption = "About..."
Idioma.Caption = "Language"
español.Caption = "Spanish"
english.Caption = "English"
End Sub
 
Private Sub español_Click()
Check6.Caption = "Reiniciar PC después de instalar actualizaciones."
Frame1.Caption = "Opciones adicionales"
opendir.Caption = "Abrir directorio..."
virus.Caption = "Archivo"
salir.Caption = "Salir"
Sobre.Caption = "Sobre..."
Idioma.Caption = "Idioma"
español.Caption = "Español"
english.Caption = "Inglés"
End Sub
 
Private Sub salir_Click()
Unload Me
End Sub
 
Private Sub Sobre_Click()
MsgBox ("WinUpdates Installer 1.0" & vbNewLine & "" & vbNewLine & "By PiToLoKo" & vbNewLine & vbNewLine & "www.foro.elhacker.net")
End Sub
 

Private Const BIF_RETURNONLYFSDIRS As Long = &H1
Private Const BIF_DONTGOBELOWDOMAIN As Long = &H2
Private Const BIF_RETURNFSANCESTORS As Long = &H8
Private Const BIF_BROWSEFORCOMPUTER As Long = &H1000
Private Const BIF_BROWSEFORPRINTER As Long = &H2000
Private Const BIF_BROWSEINCLUDEFILES As Long = &H4000
Private Const MAX_PATH As Long = 260
 
Type BrowseInfo
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszINSTRUCTIONS As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    iImage As Long
End Type
 
Type SHFILEOPSTRUCT 
    hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Boolean
    hNameMappings As Long
    lpszProgressTitle As String
End Type
 
Declare Function SHGetPathFromIDListA Lib "shell32.dll" ( _
    ByVal pidl As Long, _
    ByVal pszBuffer As String) As Long
 
Declare Function SHBrowseForFolderA Lib "shell32.dll" ( _
    lpBrowseInfo As BrowseInfo) As Long
 
 
Function BrowseFolder(Optional Caption As String = "") As String 
 
Dim BrowseInfo As BrowseInfo 
Dim FolderName As String 
Dim ID As Long
Dim Res As Long
 
With BrowseInfo
   .hOwner = 0 
   .pidlRoot = 0 
   .pszDisplayName = String$(MAX_PATH, vbNullChar) 
   .lpszINSTRUCTIONS = Caption 
   .ulFlags = BIF_RETURNONLYFSDIRS 
   .lpfn = 0
End With
 
FolderName = String$(MAX_PATH, vbNullChar)
ID = SHBrowseForFolderA(BrowseInfo)
If ID Then
   Res = SHGetPathFromIDListA(ID, FolderName)
   If Res Then 
       BrowseFolder = Left$(FolderName, InStr(FolderName,vbNullChar) - 1)
   End If
End If
 
End Function 

Private Sub Opendir_Click()
    Dim opendir As Long, Nombre As String
    Dim sFile As String
    opendir = FreeFile
       'sFile almacenará el path completo que nos interesa
       sFile = Abrir
       'Comprobamos que no sea una cadena vacia
       If sFile <> "" Then
      Savefile = FreeFile
       End If
End Sub