Problem med att färga sträng i Richrextbox

I en sträng så vill jag färga ett visst antal tecken till rött. Resterande vill jag ha till svart.
Jag försöker så här.
Strängen:

   frMultiLanguage.txtSv = frMultiLanguage.txtSv.Text & RedText
("MultiLang_" & intMul & "=", frMultiLanguage.txtSv) & """" & 
Replace(tString, vbCrLf, " < BR > ") & """" & 
vbTab & vbCrLf

Min function ser ut så här:

Function RedText(sString As String, ByVal sText As RichTextBox) 
Dim langd As Long 
   sText.SelStart = 0 
   sText.SelLength = Len(sString) 
   sText.SelColor = vbRed 
   RedText = sString 
End Function

Resultatet, allting blir rött.
Förslag motages tacksamt.