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"