Dim WSHShell
 Dim oExec
 Dim iput
 Dim IPtst
 
Function PingTest(IPtst) 
 
IPtst = "127.0.0.1"
Set WSHShell = CreateObject("Wscript.Shell")
Set oExec = WSHShell.Exec("%comspec% /c ping & IPtst")
 
 Do While Not oExec.StdOut.AtEndOfStream
 
 Text2.Text = Text2.Text & oExec.StdOut.Read(100)
 Text2.text = Replace(Text2.Text, vbLf, vbCrLf)
 
Loop
End Function