Sending Large String Data

[jizzmasterflex]

Public Sub txtlog1()

Dim inData As String
Dim splitData() As String
Dim i As Integer

frmTxtLog.Text1 = data
inData = frmTxtLog.Text1

splitData = Split(inData, "txtlog")

For i = 0 To UBound(splitData) - 1
If Len(Trim(splitData(i))) > 0 Then _
frmTxtLog.Text1 = frmTxtLog.Text1 & Trim(splitData(i) & vbCrLf)
Next i

End Sub

What am I doing wrong?