Visual Basic - Problemas con ejecucion

Estaba haciendo una prueba, que es escribir un texto en un text y usar el progressbar, pero el problema es que no me aparece el textoinmediatamente, aqui te envio el codigo, gracias.

Private Sub Command3_Click()
Text1.Text = ""
ProgressBar.Min = 0

total = 1000
ProgressBar.Max = total
For i = 0 To total

Text1.Text = Text1.Text & " texto es " & i

If ProgressBar.Value < ProgressBar.Max Then
ProgressBar.Value = ProgressBar.Value + 1
End If

Next i
End Sub

El texto me aparece de una, y no cada vez que se modifica, gracias.

Prueba insertando un doevents, para que devuelva el control al sistema operativo.