Обрезается весь текст после 255 символов

Public Function GetUnionString(ИД_Обращения As Long) As String
    Dim strSQL As String
    strSQL = "SELECT Описание_генов.Название_гена FROM Заказанные_гены INNER JOIN Описание_генов ON Заказанные_гены.ИД_Гена = Описание_генов.ИД_Гена WHERE Заказанные_гены.ИД_Обращения=" & ИД_Обращения & " AND Заказанные_гены.[Считать?]=True"
    
    With CurrentProject.Connection.Execute(strSQL)
        If Not .EOF Then
            GetUnionString = .GetString(adClipString, , , ", ")
            GetUnionString = Mid$(GetUnionString, 1, Len(GetUnionString) - 1)
        End If
    End With
End Function

Private Sub Кнопка4_Click()
Err.Number = 0
On Error GoTo notloaded
Set appWD = GetObject(, "Word.Application")
notloaded:
If Err.Number = 429 Then
Set appWD = CreateObject("Word.Application")
End If
appWD.Visible = True
 
With appWD
Set myDoc = .Documents.Add("C:\dot1.dot")
 
Set MyRange = myDoc.Content
             MyRange.Find.Execute FindText:="%gens%", ReplaceWith:=Format(Me!Поле2), Replace:=wdReplaceAll
End With
Exit_Кнопка4_Click:
Exit Sub
End Sub