Potresti usare la funzione ShellExecute, nel seguente modo:
codice:
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As _
    String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    Const SW_NORMAL = 1
'---------------------------------------------
Private Sub Command1_Click()
    
    Dim X As Long
    X = ShellExecute(hWnd, "Open", "C:\programmi\NomeCartellaProgr\NomeProg.exe", vbNullString, vbNullString, SW_NORMAL)

End
End Sub