חיפשתי בפורום ומצאתי את זה:https://rotter.name/nor/prog/11161.shtml
אולם התוכנה השניה מ dr-Vb משום מה לא עובדת.. הבנתי שם שהם התחברו לאתר וניסו whatismyIP וניסו להוציא משם את הכתובת אבל אין לי מושג איך לעשות את זה בעצמי ככה שאני לא ממש מבין מה הטעות שלהם.. תודה
IP = Mid(Text, InStr(Text, "Your IP Is") + 10, InStr(Text, " WhatIsMyIP.com</title>") - (InStr(Text, "Your IP Is") + 10))
בהצלחה..