For j = 0 To 1
                vec2(j) = Int(8 * Rnd + 1)
                For x = 1 To j - 1
                    If vec1(x) = vec1(j) Then
                       vec1(j) = Int(8 * Rnd + 1)
                    End If
                estrelas_euromilhoes1.Text = estrelas_euromilhoes1.Text & vec2(j) & " "
                Next
            Next