Sub capture() Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") WshShell.Run "C:\cap\CapWrite.exe /C3 /W2 /A5", 1, True Set WshShell = Nothing End Sub