Jag har en lång text och jag vill ersätta vissa saker...

Exempel på text:
"FORM=NAME:form1 ATTR=NAME:rubrik CONTENT=srubrik
FORM=NAME:form1 ATTR=NAME:annonstext CONTENT=sannonstext
FORM=NAME:form1 ATTR=NAME:pris CONTENT=spris
FORM=NAME:form1 ATTR=NAME:name CONTENT=sfornamn
FORM=NAME:form1 ATTR=NAME:surname CONTENT=sefternamn"

Jag använder denna kod:

Private Sub Command1_Click()
Dim variabler(2) As String
variabler(0) = "Ort"
variabler(1) = "Efternamn"
variabler(2) = "Fornamn"
Dim hitta As String

For i = 0 To 2
hitta = "s" & LCase(variabler(i))
Str1 = Replace(Text1.Text, hitta, "Script_" & variabler(i) & vbcrlf)
Next

Text2.text = Str1

End Sub

Jag vill loopa genom arrayen och ersätta texten enligt koden men det verkar inte fungera att använda variabeln hitta. Skriver jag t.ex "sefternamn" istället så fungerar det fint.

Vad kan felet vara?