WebBrowser1.Url = New Uri("http://checkip.dyndns.org")
 
        Try
            Dim filePath As String
            filePath = System.IO.Path.Combine( _
                       My.Computer.FileSystem.SpecialDirectories.Desktop, _
                       "myIPs.txt")
            My.Computer.FileSystem.WriteAllText(filePath, "text", False)
        Catch fileException As Exception
            Throw fileException
        End Try