you can dump the results of the commands into a file:

VB Code:
  1. Shell("netstat > log.txt", vbNormalFocus)

and then read in the file in vb:

VB Code:
  1. Dim Buffer As String
  2. Dim Temp As String
  3.  
  4. Open "log.txt" For Input As #1
  5.  
  6. Do Until EOF(1)
  7.      Input #1, Temp
  8.      Buffer = Buffer & Temp
  9. Loop

and then kill the file:

VB Code:
  1. Kill "log.txt"

hope this helps