RE:Como abro un programa con un boton?
Es muy facil, aqui te escribo un ejemplo:
Private Sub Command1_Click()
On Error GoTo noencontrado
' Declaramos la variable que contendrá el nombre de la aplicacion
Dim stAppName As String
' le asignamos una ruta de acceso
stAppName = "C:\archivos de programa\messenger\msmsgs.exe"
' y llamamos a la aplicacion
Call Shell(stAppName, 1)
' Si se ha generado algun error, este apartado lo describirá
noencontrado:
If Err.Number <> 0 Then
MsgBox ("Error # " & Str(Err.Number) & " fue generado por " _
& Err.Source & Chr(13) & Err.Description)
End If
End Sub
Suerte !