Public Sub Main() Dim hf As New HttpClient Dim s As String s = Temp With hf .URL = "http://wttr.in/Chaves" .Timeout = 10 .Get(Null, s) End With Wait 0.5 ' Si no conseguimos resultados, tenemos que aumentar el valor de la espera. hf.Close Print File.Load(s) End