escribir en un textbox con cada letra de dif color

[Zion_Tm]

Hola, encontre esta funcion en la web y quiero saber que modificion hacerle para que al escribir en un textbox cada letra salga de diferente color

Código:

Sub Form_Paint()
Dim I As Integer, X As Integer, Y As Integer
Dim C As String
Cls
For I = 65 To 91
X = CurrentX
Y = CurrentY
C = Chr(I)
Line -(X + TextWidth(C), Y = TextHeight(C)), QBColor(Rnd * 16), BF
CurrentX = X
CurrentY = Y
ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
Print C;
Next
End Sub

esta funcion imprime todo el abecedario en diferentes colores cada letra


alguien puede ayudarme ?