Determine response time from an ip ping

' --- ping the ip adress in the string s_ipaddr, and get
'     the response time in the int32 n_response
' imports system.net.networkinformation
Dim ping As New System.Net.NetworkInformation.Ping
Dim reply As System.Net.NetworkInformation.PingReply
reply = ping.Send(s_ipaddr)
If reply.Status = IPStatus.Success Then
    ' --- handle reachable here
    MsgBox("ping time " & reply.RoundtripTime)
Else
    ' --- handle non reachable here
End If