Vb.Net - Get system IP Address and Name

Dim LocalHostName As String
LocalHostName = GetHostName()
Dim ipEnter As IPHostEntry = GetHostByName(LocalHostName)
Dim IpAdd() As IPAddress = ipEnter.AddressList
strSystemIP = IpAdd(0).ToString()