Private Sub CommandButton1_Click()
Dim strOriginal As String
Dim strNew As String
Dim strTemp As String
Dim I As Long
Dim R As String, G As String, B As String
strOriginal = TextBox1.Text
strNew = ""
For I = 1 To Len(strOriginal)
Randomize
R = (Rnd * 150) + 50
R = Right("0" & Hex(R), 2)
G = (Rnd * 150) + 50
G = Right("0" & Hex(G), 2)
B = (Rnd * 150) + 50
B = Right("0" & Hex(B), 2)
If Mid(strOriginal, I, 1) = " " Or Mid(strOriginal, I, 1) = vbTab Or Mid(strOriginal, I, 1) = vbCrLf Or Mid(strOriginal, I, 1) = vbCr Or Mid(strOriginal, I, 1) = vbLf Then
strTemp = Mid(strOriginal, I, 1)
Else
strTemp = "[color=#" & R & G & B & "]" & Mid(strOriginal, I, 1) & "[/color]"
End If
strNew = strNew & strTemp
Next I
TextBox2.Text = strNew
End Sub
(It's kinda like a synathesiac experience, aint it...)