以下の関数をXPで実行するとIPV4の文字列が返って来るのに
Vistaで実行するとIPV6の値が返ってきてしまいます。
なんとかIPV4のほうのアドレスを取得できないものでしょうか？

Public Function GetLocalIpAddress(Optional ByVal ipNo As Integer = 0) As String
　　Dim temp As System.Net.IPAddress() = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList
　　If temp.Length <= 0 Then
　　　　Return System.Net.Dns.GetHostName & ":IpUnKnown"
　　Else
　　　　Return temp(temp.Length - 1).ToString
　　End If
End Function