Работа с активным подключением интернета? - VB

Формулировка задачи:

Многие программы замеряют текущую скорость входящего и исходящего трафика, так же показывают какие программы и системные процессы на данный момент используют интернет. Подскажите в какую сторону копать чтоб хотяб измерять входящий/исходящий трафик? Есть 1 из методов подключатся к системным датчикам, но он не годится так как не работает с TCP/UDP соединением.

Решение задачи: «Работа с активным подключением интернета?»

textual
                            Листинг программы 
                        

                            Private Function TrimNull(item As String)
    Dim pos As Integer
    pos = InStr(item, Chr$(0)) 'Получаем размер строки
    If pos Then 'проверяем не равняется ли размер 0
        TrimNull = Left$(item, pos - 1) 'вырезаем из строки указанное количество символов
    Else 'если размер строки является 0
        TrimNull = item ' передаём её обратно в функцию <- Не понял О_о
    End If
End Function
                        