Need Help with Leading Zeros

[bIGMOS]

I need to generate a random number from 0100, 0999, Im stuck on the how to..

iRand1 = oRand.Next(1000 , 2500)
iRand2 = oRand.Next(1000 , 9999)
iRand3 = oRand.Next(1000 , 2500)
iRand4 = oRand.Next(9000 , 9999)

TextBox1.Text = (iRand1)
TextBox2.Text = (iRand2)
TextBox3.Text = (iRand3)
TextBox4.Text = (iRand4)

I need iRand2 = oRand.Next(0100 , 0999) t0 have leading zeros

Thanks in advance for any help

[Torgg]

If I understand your question, this should get you what you want.

        Dim oRand As New Random()
        Dim iRand1 As Integer
        iRand1 = oRand.Next(100, 999)

        TextBox1.Text = (iRand1.ToString("000#"))

Hope this helps,
Torgg

[bIGMOS]

If I understand your question, this should get you what you want.

        Dim oRand As New Random()
        Dim iRand1 As Integer
        iRand1 = oRand.Next(100, 999)

        TextBox1.Text = (iRand1.ToString("000#"))

Hope this helps,
Torgg

Yep that did it Thanks for your help . I was overcomplicatin g it.