Inet1.Execute URL, "GET", , "Cookie: JSESSIONID=DF89C5D30DEC59CA2437B547DCB9C61E; Path=/"

text1.text=text1.text & Letra

dim IntCanal as integer , strBuffer as string
intcanal=freefile
open DirArchivo for input as #intcanal
do while not eof(intcanal)
  lineinput #intcanal strBuffer
  if len(strbuffer) > 0 then
    combo1.additem strbuffer
 end if
 doevents
loop
close #intcanal