اشکال در فراخوانی CMD

[davoodx]

سلام ،
میشه لطف کنید بگید اشکال این کد چیه که جای یه دونه CMD ، بینهایت CMD باز میشه ؟
می خوام با زدن دکمه ، CMD باز بشه و مثلا دستور DIR توش تایپ بشه ، ممنونم از همتون

کد:

Private Sub Command1_Click()
    Shell "cmd.exe"
    Dim WinShell
    Set WinShell = CreateObject("Wscript.shell")
    WinShell.SendKeys "dir"
    WinShell.SendKeys "{ENTER}"
End Sub