怎么用vb编个随机抽取人名的小程序，做到不重复并能直接打印显示已抽到的人名

Dim n As Integer
Dim a()
Private Sub Command1_Click()
If n = 0 Then '第点击执行
m = Val(Text1)
ReDim a(1 To m)
For i = 1 To m '数组a元素1至mm数
a(i) = i
Next
For i = 1 To m - 1 '随机打乱数组a元素
r = Int(Rnd * m + 1)
tmp = a(i)
a(i) = a(r)
a(r) = tmp
Next
End If
n = n + 1 '计数点击数
If n > Val(Text1) Then '数超指定数抽奖结束
MsgBox "抽奖结束"
Exit Sub
End If
Text2 = a(n) '数组抽第n数由于数组随机排列所相于随机数并且重复
End Sub