How can you create a random 5 digit number?

[VaxoP]

anyone know?

[manavo11]

Public Function R5() As Long
    Dim i As Integer
    Dim TempStr As String
    
    For i = 1 To 5
        TempStr = TempStr & CStr(Int(Rnd * 10))
    Next
    
    R5 = CLng(TempStr)
End Function
 
Private Sub Form_Click()
Randomize Timer
MsgBox R5
End Sub

[peet]

the rule is like this Int(([upperbound] - [lowerbound] + 1) * Rnd + [lowerbound])

so this sample will also do it for you

Private Sub Command1_Click()
    Randomize
    Debug.Print Int(90000 * Rnd + 10000)
End Sub