Option Explicit
Private cF As Collection
 
Private Sub RndLabel()
   Dim n As Byte
 
   Randomize Timer
   If (cF.Count + 1) > Label1.Count Then Exit Sub
   On Error Resume Next
 
   n = Int(Rnd * 90) + 1
   cF.Add n, CStr(n)
   If Err.Number > 0 Then RndLabel
 
   Label1(cF.Count - 1).Caption = n
End Sub
 
Private Sub Command1_Click()
   RndLabel
End Sub
 
Private Sub Form_Load()
   Set cF = New Collection
End Sub