[alex]

Γιώργο Καλησπέρα!!!
Βάλε τον παρακάτω κώδικα σε κουμπί εντολής εγώ το ονόμασα Computeraki.

Private Sub Computeraki_Click()
On Error GoTo Err_Computeraki_Click

    Dim stAppName As String

    stAppName = "C:\WINDOWS\system32\Calc.exe"
    Call Shell(stAppName, 1)

Exit_Computeraki_Click:
    Exit Sub

Err_Computeraki_Click:
    MsgBox Err.Description
    Resume Exit_Computeraki_Click
    
End Sub