objRegExp.Pattern ... kanske?

Jag har en fråga om man kunde typ ha en kod som gör så att varanan bokstav blir röd och andra blå tex.. hur skulle man kunna göra detta? med objRegExp.Pattern eller?

Function ColorCode(sText)
	Dim I, strCurrChar, strNew

	For I = 1 To Len(sText)
		strCurrChar = Mid(sText, I, 1)
		If (I Mod 2) = 0 Then
			strColor = "blue"
		Else
			strColor = "red"
		End If
		strNew = strNew & "<FONT COLOR=""" & strColor & """>" & strCurrChar & "</FONT>"
	Next

	ColorCode = strNew
End Function