number generation

[RAken]

I need this output

12
13
14
15
16
17
18

23
24
25
26
27
28
.
.
.
78

I only get 99. Can someone help?


Private Sub cmdGenNum_Click()
Dim intOne As Integer
Dim intTwo As Integer


For intOne = 1 To 8
For intTwo = 2 To 8

Next intTwo
cboNumGen.Text = intOne & intTwo
Next intOne
cboNumGen.Text = intOne & intTwo

End Sub

[Bornish]

Try:
Private Sub cmdGenNum_Click()
Dim intOne As Integer
Dim intTwo As Integer


For intOne = 1 To 8
For intTwo = 2 To 8
cboNumGen.Text = intOne & intTwo
DoEvents()
Next intTwo
Next intOne

End Sub

[DeepButi]

For intOne = 1 To 7
For intTwo = intOne + 1 To 8

Hope it helps