This has the DoEvent you mentioned earlier.
Private Sub txtReportComment_KeyUp(KeyCode As Integer, Shift As Integer)
On Error GoTo Err_txtReportComment_KeyUp
Dim intEntryChar, intResponseChar, intEntryLength, intResponseLength, intMaxChars As Integer
intMaxChars = 255...