Gerar um Jogo Para MegaSena Funções Internas

Sub Exemplo_Funcoes()
'gerar um numero randomico
'gerar um jogo para megaSena
Dim jogo(5) As Integer
Dim qtd As Integer
Dim gerado As Integer
Dim i As Integer
Dim tem As Boolean
Dim mensagem As String

qtd = 0
Do While (qtd < 6)
 gerado = Int(Rnd() * 60)
    For i = 0 To 5
    If gerado = jogo(i) Then tem = True
    Next
    If tem = False Then
    jogo(qtd) = gerado
    qtd = qtd + 1
    End If
Loop

For i = 0 To 5
mensagem = mensagem & jogo(i) & " "
Next

MsgBox mensagem

End Sub