Try
    If My.Computer.Network.Ping("hogehoge.com", 1000) = True Then
        MessageBox.Show("Ping成功")
    Else
        MessageBox.Show("タイムアウト")
    End If
Catch ex As Exception
    MessageBox.Show(ex.Message)
End Try

Myのおかげかな。