Private Cache As Integer = 0
' Code, etc.
 
' In deinen Sub könntest du dann folgendes einfügen:
Dim tempZ As Integer
Do
tempZ = r.Next(1, 11)
Loop Until tempZ <> Cache
tempZ = Cache

MfG
Visual Studio .Net Team Suite 2008 - Meine neue lieblings IDE