ok cok basit aslinda google da biraz arastirsan bulurdun ama yazayim ben..
1. yol
Private Sub Command1_Click()
Call Shell("okey.exe", 1)
End Sub

2. yol

Private Sub Command1_Click()
sonuç = WinExec("okey.exe", 9)
End Sub

'MODUL OLUŞTURUN AŞAĞIDAKİ KODU MODUL'UN İÇİNE YAZIN
Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long


tabi exe nin system32 de olmasi gerekir degilse exenin tam yolunu yazin