如何在VB6中将文本框中的数据按字符拆分成多色多行

Dim inputData As String
inputData = TextBox1.Text

Dim inputArray() As String
ReDim inputArray(1 To Len(inputData))

Dim i As Integer
For i = 1 To Len(inputData)
    inputArray(i) = Mid(inputData, i, 1)
Next i

Dim outputData As String
outputData = ""

For i = 1 To Len(inputData)
    ' 设置不同的颜色和行数
    If i Mod 2 = 0 Then
        RichTextBox1.SelColor = RGB(255, 0, 0) ' 设置红色
    Else
        RichTextBox1.SelColor = RGB(0, 0, 255) ' 设置蓝色
    End If
    
    outputData = outputData & inputArray(i)
    
    ' 设置换行
    If i Mod 10 = 0 Then
        outputData = outputData & vbCrLf
    End If
Next i

RichTextBox1.Text = outputData