VBA Keep Command Window terbuka

Sub cmdWinOpen()
	Dim res
	Dim shell As Object
	Set shell = VBA.CreateObject("WScript.Shell")
	res = shell.Run("cmd /k " & "your command")
End Sub
peamdev