vb.net 找出本地的IP位置

请问如何实现，在vb.net自动抓出自己本身的IP地址呢

如192.168.200.5 这样的方式来传出

谢谢

Dim hostName As String=System.Net.Dns.GetHostName
Dim ipa As System.Net.IPAddress()
Dim strIP As String=""
ipa=System.Net.Dns.GetHostAddresses(hostName)
For i=0 to ipa.Length-1
strIP +=ipa(i).ToString+vbCrlf
Next i