Hi, I just upgraded to win 2000 and I'm having a problem updating my code the appactive command doesn't seem to work though any ideas how to update this so it works in win 2000?

'Compile fuction for win 95/98.
Clipboard.Clear
Clipboard.SetText "dir" + Chr$(13)
Shell "Command.com", vbMaximizedFocus
AppActivate "MS-DOS"
'SendKeys "% ep", 0