for 문을 써서 숫자 1부터 100까지 나오게는 할수있는데요


Dim a As Long
-----------------------
Private Sub Command1_Click()
a = 1
For a = 1 To 100
Text1.Text = Text1.Text + Str(a)
Next
End Sub


그런데 이다음부터 if문장을써서
1 2 3 4 5 6 7 8 9 10
11 12 13 14 15 16 17 18 19 20
21 22 23 24 25 26 27 28 29 30
31 32 ...............................
...................96 97 98 99 100

이렇게 줄바꿈하는 방법을 몰르겠습니다.. 
초보자라서...
가르쳐주시면 감사합니다.. (__)꾸벅