Carregar resultado da loteria

Olá colegas.

Vi esse tópico sobre carregar um resultado de loteria, o exemplo postado é muito bom, mas eu gostaria de otimiza-lo informando também o campo do numero do concurso, eu até tentei, mas como é em excel não tive muito sucesso, inclusive tentei falar com o autor mas também não consegui.

Por isso estou recorrendo ao grupo.

O LInk do tópico que estou me referindo é esse

https://www.maximoaccess.com/t34750-resolvidoobter-dados-externos-web#273427


Obrigado e desde já agradeço

Troque

Código:

For j = 1 To UBound(varSubInfoConcurso) + 1
  ActiveSheet.Cells(UBound(varInfoConcurso) - i + 4, j).Value = varSubInfoConcurso(j - 1)
Next j

Por

Código:

For j = 1 To UBound(varSubInfoConcurso) + 2
  Select Case j
      Case 1: ActiveSheet.Cells(UBound(varInfoConcurso) - i + 4, j).Value = DateSerial(Split(varSubInfoConcurso(j - 1), "/")(2), Split(varSubInfoConcurso(j - 1), "/")(1), Split(varSubInfoConcurso(j - 1), "/")(0))
      Case 2: ActiveSheet.Cells(UBound(varInfoConcurso) - i + 4, j).Value = i + 1
      Case Else: ActiveSheet.Cells(UBound(varInfoConcurso) - i + 4, j).Value = varSubInfoConcurso(j - 2)
  End Select
Next j

Como sugestão, para soluções mais rápidas sobre dúvidas em Excel, sugiro fóruns específicos do programa. A galera é bem prestativa por lá também.

Opa, valeu muito obrigado vai me ajudar muito.

Desculpem, sei que o tópico já foi resolvido, porém a título de mais  opções, disponibilizo versão em Access...
Eventuais correções são bem vindas! ...

Perfeito, muito obrigado