String to RichText? (Solved)

[Tec-Nico]

I have a string that has the following symbols:

• *-O
• ->
• -v

(This is an old project I am trying to code better)
I put this text in a richtextbox and loop through it changing the *-O into an M using the font "Wingdings" with size 10 and color vbBlue...

This *-O appears a lot in the string and so it makes the form load after a lot of time... I was wondering if there was an easier (and faster) way to do this in order to display the text correctly in the RichTextBox.

I appreciate your help

P.S. I want to change the -> to g using the font "Wingdings 3", size 10 and color vbBlack and then-v to ? using the font "Wingdings 3", size 10 and color vbBlack (just in case you were wondering about it)

[Tec-Nico]

Nevermind, I found a way:

Public Function changeDefaultFormat(strReplaced As String) As String
 changeDefaultFormat = "{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}{\f1\fnil\fcharset2 Wingdings;}{\f2\fnil\fcharset2 Wingdings 3;}}" & vbNewLine
 changeDefaultFormat = changeDefaultFormat & "{\colortbl ;\red0\green0\blue255;\red0\green0\blue0;}" & vbNewLine
 changeDefaultFormat = changeDefaultFormat & "\viewkind4\uc1\pard\lang2058\f0\fs17" & vbNewLine
 
 strReplaced = Replace(strReplaced, vbNewLine, "\par " & vbNewLine)
 strReplaced = Replace(strReplaced, "*-O", "\cf1\f1\fs20 M\cf0\f0\fs17")
 strReplaced = Replace(strReplaced, "->", "\cf2\f2\fs20 g\cf0\f0\fs17")
 strReplaced = Replace(strReplaced, "-v", "\cf2\f2\fs20 ?\cf0\f0\fs17")
 
 changeDefaultFormat = changeDefaultFormat & strReplaced
End Function

Thanks anyway!