Why is the textbox not updated until the loop(or the sub?) is exited?
The Cell is updated, but not the TextBox.

Can this be 'fixed'?

================================================== ==
Private Sub CommandButton1_Click()
Dim x9 As Single
Dim i9 As Integer
Dim s9 As Integer

Dim Header$(4)

For i9 = 1 To 4
s9 = InputBox("Please input a number:", "InputBox Title", 65)
Cells(10, 2) = s9
Cells(10, 3) = Chr(s9)
TextBox1.Value = Chr(s9)
x9 = DoEvents()

Next i9

End Sub
==================================================

Thanks,
TomC