S1 = Selection.Fields(1).Data 'поле не может содержать данные, а какое может?
S11 = Selection.Fields(1).LinkFormat 'здесь 91 ошибка, Object variable or With block variable not set	Переменная объекта или переменная блока With не задана 

Dim SelectionFieldsCode As String
    'удаляем "MACROBUTTON"
    SelectionFieldsCode = Trim$(Replace$(Selection.Fields(1).Code, "MACROBUTTON", ""))
   
    'первый пробел в коде поля
    'Dim SpaceSelectionFieldsCode As Long
    'SpaceSelectionFieldsCode = InStr(SelectionFieldsCode, " ")
    
    Dim NameMacros As String
    'Mid$(String,Start,[Length])
    NameMacros = Mid$(SelectionFieldsCode, 1, InStr(SelectionFieldsCode, " ") - 1)
    
    Dim Message As String
    'Mid$(String,Start,[Length])
    Message = Trim$(Mid$(SelectionFieldsCode, InStr(SelectionFieldsCode, " ")))