请VBA老师帮忙

需要实现随机数自动变化，直至出现需要的结果，
excel表格中A列有一列数字，B列有一列随机数，
请问能不能用VBA实现以下功能，
一、将B列的随机数自动运行，直至出现与A列完全相同的数字。
二、将B列的随机数自动运行，直至出现与A列完全不同的数字。
A列为自然数（0-9）每天手工输入。B列需要用VBA生成（0-9）随机数，要实现计算机自动找出一整列与A列完全相同（或不同）的随机数字（不能一个一个的找，要一下找出一整列的）。
592103255@qq.com

Sub 宏1()
'
' 宏1 Macro
' I LOVE MY HOME 记录的宏 2008-9-4
'

'
Dim i As Integer, j As Integer, S As String, sType As String
Dim Hh As Integer, Hs As Integer, Max As Integer, Min As Integer
'参数输入
Do
S = InputBox("请输入第1列的起始行(X 退出)", "参数输入", 1)
Loop Until InStr(1, "1,x", S, vbTextCompare) > 0
If UCase(S) = "X" Then Exit Sub
Do
sType = InputBox("请选择[1.B列的随机数与A列相同 2.1.B列的随机数与A列不相同 X.退出]", "运行方式", 1)
Loop Until InStr(1, "1,2,x", S, vbTextCompare) > 0
If UCase(sType) = "X" Then Exit Sub

'以下获取第1 列的总行数，及数值的范围
Hh = Val(S) - 1
Hs = Hh
Max = Val(Range("B2").Cells(Hs, 0))
Min = Max
Do While True
S = Range("B2").Cells(Hs, 0)
If S <> "" Then
i = Val(S)
If i > Max Then Max = i
If i < Min Then Min = i