Thanks Minty,
as reference of link I write this, and get result also, but I need 4 Digit No.
so, I use for...next statement
could you or anyone check that is correct ?
Private Sub Command4_Click()
Dim LRandomNumber As Integer
Randomize
LRandomNumber = Int((9999 - 1001 + 1) * Rnd + 200)
scode =...