Private Sub cmdAdobe_Click() Dim stAppName As String stAppName = "C:\Program Files\Program Klasörü\ProgramAdı.exe" Call Shell(stAppName, 1) End Sub