VB: ABRIR ARCHIVOS

Private Sub cmdBlog_Click()
Shell "Explorer " & "http://informaticaiesandorra.blogspot.com.es/", vbNormalFocus
End Sub

Private Sub cmdGoogle_Click()
Shell "Explorer " & "https://www.google.es/", vbNormalFocus
End Sub

Private Sub cmdHeraldo_Click()
Shell "C:\Archivos de programa\Mozilla Firefox\firefox.EXE www.heraldo.es/", vbNormalFocus
End Sub

Private Sub cmdJuancarlos_Click()
Shell "explorer.exe root = E:\juan carlos", vbNormalFocus
End Sub

Private Sub cmdNotas_Click()
Shell "C:\Archivos de programa\Microsoft Office\OFFICE11\EXCEL.exe E:\juancarlos\TINF", vbNormalFocus
End Sub