Using loop in text box

Hello I used textbox in my project i write a number and some thing writing i textbox using loop
for example
i used this code
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 10
Text1.Text = "work is great" & i
Next i
End Sub

but when i run program and click button only see result work is great10

i run
work is great0
work is great1
work is great2
work is great3
work is great4
.
.
.
how can this work in textbox