VB随机抽取

Private Sub Command1_Click()
Dim x, x1, x2, y, y2, y3 As Integer
x = Int(300 * Rnd + 1)
x1 = Int(300 * Rnd + 1)
x2 = Int(300 * Rnd + 1)
y = Int(140001 * Rnd + 10000)
Y1 = Int(140001 * Rnd + 10000)
y2 = Int(140001 * Rnd + 10000)
If x = x1 Then
x1 = Int(300 * Rnd + 1)
End If
If x1 = x2 Then
x2 = Int(300 * Rnd + 1)
End If
If x = x2 Then
x2 = Int(300 * Rnd + 1)
End If
Text1 = x
Text2 = x1
Text3 = x2
Text4 = y
Text5 = Y1
Text6 = y2

End Sub

Private Sub Command2_Click()
End
End Sub

思路是这样的，同时随机抽取出3个楼数名额对应奖励的金币，想要3个楼数名额不相同，我是全小白，上面全是数学学点点写出来的，但是执行还是不对，请大虾帮忙修改讲解一下

Private Sub Command1_Click()
Randomize '初始化随机数生成器 避免产生相同数字
'Int(m+Rnd*(n-m+1)) 为求N-M间的随机数
Text1 = Int(300 * Rnd + 1)
'随机产生1--300间的数字
Text2 = Int(300 * Rnd + 1)
Text3 = Int(300 * Rnd + 1)
Text4 = Int(140001 * Rnd + 10000)

Text5 = Int(140001 * Rnd + 10000)

Text6 = Int(140001 * Rnd + 10000)
'由于已经加了，Randomize ，所以不用再去判断产生相同的数字了

End Sub