Boa tarde pessoal, tenho essa macro que achei na internet que gera 100 sorteios de 20 números aleatórios de 0 a 100 sem repetição, só que em nenhum sorteio aparece o número ZERO gostaria que me ajudassem uma forma de também sortear o número ZERO, estou fazendo simulações para lotomania, segue a macro:

Sub SorteioLotoMania()
Dim V() 'Vetor
Dim NUM_SORT As Integer 'Recebe um número sorteado

For I = 1 To 100
Randomize
For c = 1 To 20
    ReDim Preserve V(c)
    NUM_SORT = Int(Rnd * 100 + 1)
    V(c) = NUM_SORT
Next

For c = 1 To 20
    ActiveCell.Value = V(c)
    ActiveCell.Offset(0, 1).Activate
Next
ActiveCell.Offset(1, -20).Activate
Next I
End Sub