Dim x As Integer

Dim lastNumber As Integer

Private Sub cmdGetNumber_Click()

Repeat: 'repeat section start

Randomize Timer

x = Int(Rnd * 10) + 1

If x = lastNumber Then

GoTo Repeat 'if a dupe, repeats the section

End If

lastNumber = x

txtOutput.Text = CStr(x)

End Sub

Private Sub cmdExit_Click()

End

End Sub