Dim s as new System.Text.StringBuilder
For a As Integer = 0 To 100000
  s.Append (a.toString())
  If a Mod 10 = 0 Then
    application.DoEvents 
    me.Text = a.toString()
  End If
Next
me.richTextBox.Text = s.ToString()