Private Function RandomNumber() As String
  Dim result As String
  Dim zahl As String
 
  ' Anfangszahl
  result = "2" 
 
  Randomize -Timer
  While Len(result) < 10
    zahl = Chr$(47 + Int(10 * Rnd + 1))
    If InStr(result, zahl) = 0 Then result = result & zahl
  Wend
  RandomNumber = result
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de