String array?

If sayon.Value = Checked Then
If FoundInText(Text1, ",!say ") Then
MyString = Text1.Text
MyArray = Split(MyString, ",!say ")
Dim MSG As String
MSG = Replace(MyArray(1), Array("&AAOG", "&AAPI"), Array("æ", "ø"))
SendKeys MSG & "{enter}"
End If
End If

den skriver type mismatch og markerer MSG = Replace(MyArray(1), Array("&AAOG", "&AAPI"), Array("æ", "ø"))

hvad gør jeg galt ?

er det ikk rigtigt?