Segment a string

[Ruegen]

using some code

    Dim strSQL As String
    'Purpose:   Convert a SQL statement into a string to paste into VBA code.
    Const strcLineEnd = " "" & vbCrLf & _" & vbCrLf & """"
    
    If IsNull(Me.txtSql) Then
        Beep
    Else
        strSQL = Me.txtSql
        strSQL = Replace(strSQL, """", """""")  'Double up any quotes.
        strSQL = Replace(strSQL, vbCrLf, strcLineEnd)
        strSQL = "strSql = """ & strSQL & """"
        Me.txtVBA = strSQL
        Me.txtVBA.SetFocus
        
    End If

This moves sql into a string for vba however

every so many characters (say 200) I would like to add another end string with " & _ and then vbCrLf and add another & " to that next line

That way everything fits nicely on my page.

any suggestions?

I was thinking of using left() and then inserting it all somehow at that position - not sure how

[amrut]

This can be done using the mid() function but it will break the string at unwanted places like tblEmployees may break into tb on first line and lEmployees on second line.
Divide the length of string in desired parts and loop through it replacing the desired string at determined intervals.

[Ruegen]

This can be done using the mid() function but it will break the string at unwanted places like tblEmployees may break into tb on first line and lEmployees on second line.
Divide the length of string in desired parts and loop through it replacing the desired string at determined intervals.

I guess I could look for things like "," and space the mid every 6 or so with a replace(mid()) although counting the , in a string might be the next challenge.