Insserta un label, un command y un winsock
en el command codifica asì:
private sub command1_click()
label1=winsock1.localip
end sub
----------------------------------------------
solamente, espero que te funcione
saludos

si Alguien pudiera decirme como crear un archivo .txt desde VB le agradeceria mucho.

quisiera saber si alguien me puede explicar como puedo crear un archivo .txt desde vb, porfa.