finding out client IP address using vb.net

Try

02	'Declare new collection

03	Dim IpCollection As New Collection

04

05	'Retrieve IP address entries

06	'To get a www address

07	Dim i As Integer

08

09	Dim ipE As Net.IPHostEntry = System.Net.Dns.GetHostEntry(-HOSTNAME-)

10	Dim IpA() As Net.IPAddress = ipE.AddressList

11

12	For i = 0 To IpA.GetUpperBound(0)

13	'Add all to list

14	IpCollection.Add(IpA(i).ToString)

15

Next

16

17	'Select the right address-

18

19	Dim Ipaddress As String

20

21	Ipaddress = IpCollection.GetValue(-Num-)

22

23	Catch ex As Exception

24	MsgBox("An error has occured")

25

End Try