こんな感じDim SetCommandLine as StringSetCommandLine=渡したい値(変数),渡したい値(変数),渡したい値(変数)Shell(App.Path & "\vb.exe " & SetCommandLine, 1)