如何製作可傳入參數的執行檔

<br />Public sub Main()<br /><br />Dim txtCommand as string <br />Dim fileNum as integer <br /><br />txtCommand = Command()<br /><br />Open App.path & "\text.txt" for append as #fileNum <br />print #fileNum,txtCommand <br />Close #fileNum <br /><br />End Sub<br /><br /><br />