use a função RND()
desta forma
resultado=Int((60 * Rnd) + 1) 'Intervalo numérico de 1 a 60
quanto a não ser repetitivo já é meio complicado
pois neste sorteio por exemplo o nº 19 pode sair na pirmeira e na ultima vez
existe uma forma para estes numero não se repetirem
seria o seguinte armazenar os numeros sorteados em um listbox
e se o numero de sorteio fosse igual estes um novo sorteio seria realizado
vou pensar no código e posto novamente
até
