Option Explicit Dim lngNumber, Count, MemoryBox Const LOOP_ON = True Const LOOP_OFF = False For Count = 0 To 9 CreateNumber MsgBox lngNumber Next Function GetNumber Randomize GetNumber = Round(9 * Rnd) End Function Sub CreateNumber Dim boolResult, intCheckTime, intLastNumber Do boolResult = LOOP_OFF lngNumber = GetNumber For intCheckTime = 1 To Len(MemoryBox) intLastNumber = CInt(Mid(MemoryBox, intCheckTime, 1)) If lngNumber = intLastNumber Then boolResult = LOOP_ON Exit For End If Next If boolResult = LOOP_OFF Then MemoryBox = MemoryBox & lngNumber End If Loop While boolResult End Sub