macro que pega o resultado da x-loterias Sub Atualiza_da_internet2() espera = 10000 Dim Lot(1 To 7, 1 To 3) As String Lot(1, 1) = "quina/": Lot(1, 2) = "qnConcursoData" Lot(2, 1) = "timemania/": Lot(2, 2) = "tmConcursoData" Lot(3, 1) = "duplasena/": Lot(3, 2) = "dsConcursoData" Lot(5, 1) = "megasena/": Lot(5, 2) = "msConcursoData" Lot(6, 1) = "lotomania/": Lot(6, 2) = "lmConcursoData" Lot(7, 1) = "lotofacil/": Lot(7, 2) = "lfConcursoData"