Function RandNum() As String Dim n As Integer Static sNum As String If Len(sNum) = 0 Then sNum = "0123456789" Randomize n = Int(Len(sNum) * Rnd + 1) RandNum = Mid(sNum, n, 1) sNum = Replace(sNum, RandNum, "") If RandNum = "0" Then RandNum = "10" End Function