Visual Basic - Mostrar la IP desde VB

Necesito saber como hacer para mostrar la IP en una caja de texo desde VB!

NECESITAS UN CONTORL OCX LLAMADO WINSOCK, AGREGA UNO AL FORMULARIO Y EN EL EVENTO QUE DESEES SOLO AGREGA:
TEXT1.TEXT = Winsock1.LocalIP

ESPERO TE SIRVA, LOS ENVENTOS PUEDEN SER ONMOUSEMOVE, ONCLICK ETC ETC

muestra la ip 169.254.237.40 que pertenece a USA , no es mi direccion ip. es 200.125.98.104.
Hay alguna forma de que cuando se ejecuta el evento me muestre mi ip real ??? la de mi pc