Cómo insertar la salida de un comando de msdos en una celda

Prueba lo siguiente
Sub CorrerBat()
'Obtener el resultado de un ejecutable
'Por.Dam
Dim EjecBat
EjecBat = Shell("C:\Pruebas\snmpget.exe > C:\Pruebas\archivo3.txt", vbNormalFocus)
Open "C:\Pruebas\archivo3.txt" For Input As #1
Do While Not EOF(1)
Input #1, x
Loop
Close
Range("A1") = x
End Sub
Saludos. Dam