Private Sub Command1_Click()
    strTarget = "127.0.0.1"
    Set objShell = CreateObject("WScript.Shell")
    Set objExec = objShell.Exec("ping -n 2 -w 1000 " & strTarget)
    strPingResults = LCase(objExec.StdOut.ReadAll)
    MsgBox strPingResults
End Sub