Function RandomNumberForLogo1(intHighNumber,intLowNumber)
intHighNumber = intHighNumber
intLowNumber = intLowNumber
dim arrOfRandNo(4)
For i = 0 to 3
Randomize
intNumber = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)
MyRandomNo = intNumber
For y = 0 To 3

If intNumber = arrOfRandNo(y) Then
intNumber = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)
MyRandomNo = intNumber
End If
Next
arrOfRandNo(i) = intNumber
Next
RandomNumberForLogo1 = arrOfRandNo
End Function