Dim wshshell
Dim oexec
 
Private Sub Command1_Click()
Dim x
Dim y As Integer
 
   Set wshshell = CreateObject("Wscript.Shell")
   Set oexec = wshshell.exec("ping") 'oder was immer
 
   x = oexec.StdOut.ReadAll()
 
   Text1 = x
 
   y = Len(x)
 
   Text1 = Text1 & "->" & y
 
End Sub