Function GetIP() As String Dim IP As New WebClient Return IP.DownloadString("http://icanhazip.com/") End Function