Проверьте System.Net.NetworkInformation для метода Ping. Вы можете пропинговать имя хоста и вернуть IP переменной.
Dim ping as Ping = New Ping()
Dim pingReply as PingReply = ping.send("www.game-monitor.com")
Dim ip as String = PingReply.Address.ToString()
Редактировать, вы можете добавить пробный улов на случай, если пинг не получит ответа.