help with shell cmd net user

[DippNCope]

Hello,
I have a list of user ID's in column C.
I am trying to find when thier AD passwords expire.
I would like to run a macro to run the command net user
This is what I have so far

UID = Range("C2").Value
RetVal = Shell("""cmd.exe """" /domain " & UID & " | findstr ""Password expires"" >>C:temp\Crit_users\" & UID & "_textfile.txt", 1)

It will open a cmd window but the arguments are not getting passed to it.
Can someone point me to where I am going wrong.
Thanks,
DippNCope