Private Sub Comando34_Click()
On Error GoTo Err_Comando34_Click

    Dim stAppName As String

    stAppName = "C:\Programmi\Microsoft Office\Office\WINWORD.EXE H:\archivi\agendasettimanale.doc"
    Call Shell(stAppName, 1)

Exit_Comando34_Click:
    Exit Sub

Err_Comando34_Click:
    MsgBox Err.Description
    Resume Exit_Comando34_Click
    
End Sub