This is my code to cause my chat window to scroll down one line to be ready for the next SendData.

It is supposed to resemble your standard run of the mill chat window, but I continue to fail in successful implementing an AUTO SCROLLING feature.

I would sure appreciate it if you could help me out...

Here is the error I am getting:
"Runtime error #28, Out of stack space"

When I hit Debug I am brought to this Sub:

Code:
Private Sub Chat_Change()
    Chat.Text = Chat.Text & vbNewLine
    
    'See if auto-scroll is desired
    If chkScroll.Value = 1 Then
        'Start the Auto Scroll
        Chat.SelStart = Len(Chat.Text)
    End If
End Sub
The highlighted offending line is:
Chat.Text = Chat.Text & vbNewLine