Ok, I will make it even simpler. This is the code I'm using to test the multiline feature

Code:
Option Explicit

Private Sub Command1_Click()
Dim MyNumber As Long
Dim I As Long

MyNumber = 0

For I = 0 To 50
    Text1.SelStart = Len(Text1)             'Finds the starting point to append text
    Text1.SelText = MyNumber & vbCrLf       'Appends text
    MyNumber = MyNumber + 100
Next I

End Sub
And, this is the result

Name: VB6-Pic.JPG Views: 796 Size: 18.5 KB

Just try these two lines and they should work

Code:
    Text1.SelStart = Len(Text1)             'Finds the starting point to append text
    Text1.SelText = MyNumber & vbCrLf       'Appends text
Make sure you have the next settings correct

Name: VB6-Pic01.JPG Views: 915 Size: 73.7 KB