Private Sub Form_Current()

Me.П_Увед = Space(10) & "Между Вами и ОВО по г. Волгограду - филиал ФГКУ ""УВО ВНГ России по Волгоградской области"" " & _
    "заключен договор " & "№ " & [Код] & " ""На охрану объекта личного имущества граждан"" с помощью технических средств охраны " & _
    " по адресу: " & "г.Волгоград,  ул. " & [Улица] & "  " & [Дом] & " " & _
    IIf([Тип МХЛИГ] = "домовладение", ".", " - " & [Квартира] & ".") & _
B1 & Space(10) & "В настоящее время Вы являетесь добросовестным клиентом отдела Вневедомственной охраны по городу-герою Волгограду. " & _
    "В связи с этим и для Вашего удобства направляем Вам платёжные документы по оплате услуг за охрану Вашего имущества." & _
B1 & ZB1 & Space(10) & "С нового 2021 года изменены реквизиты нашей организации, в соответствии с чем предоставляем " & ZUI1 & "две квитанции" & ZUI9 & _
    ", первая для оплаты до нового года, вторая для оплаты после нового года" & ZB9 & " (оплачивать нужно только по одной квитанции)." & ZB9 & _
B1 & Space(10) & "Оплатить можно в любом отделении ФГУП ""Почта России"" или ПАО ""Сбер""." & _
B1 & Space(10) & "Заранее Вам благодарны!" & _
B1 & _
B1 & "Главный бухгалтер ФЭО ОВО по г. Волгограду                                          И.Е. Чернова"
End Sub

'Option Compare Database
Option Explicit

Public ZB1 As String, ZB9 As String, ZU1 As String, ZU9 As String, ZBU1 As String, ZBU9 As String, ZI1 As String, ZI9 As String, _
       ZUI1 As String, ZUI9 As String, B1 As String, qwer1, qwer2, B2 As String, Summ_pr As String
Private Sub Form_Load()
ZBU1 = "<B><U>"
ZBU9 = "</U></B>"
ZB1 = "<B>"
ZB9 = "</B>"
ZU1 = "<U>"
ZU9 = "</U>"
ZI1 = "<I>"
ZI9 = "</I>"
ZUI1 = "<U><I>"
ZUI9 = "</U></I>"
B1 = "<br>"
B2 = "<br>" & "     "
End Sub
Private Sub Form_Current()

Me.П_Увед = Space(10) & "Между Вами и ОВО по г. Волгограду - филиал ФГКУ ""УВО ВНГ России по Волгоградской области"" " & _
    "заключен договор " & "№ " & [Код] & " ""На охрану объекта личного имущества граждан"" с помощью технических средств охраны " & _
    " по адресу: " & "г.Волгоград,  ул. " & [Улица] & "  " & [Дом] & " " & _
    IIf([Тип МХЛИГ] = "домовладение", ".", " - " & [Квартира] & ".") & _
B1 & Space(10) & "В настоящее время Вы являетесь добросовестным клиентом отдела Вневедомственной охраны по городу-герою Волгограду. " & _
    "В связи с этим и для Вашего удобства направляем Вам платёжные документы по оплате услуг за охрану Вашего имущества." & _
B1 & ZB1 & Space(10) & "С нового 2021 года изменены реквизиты нашей организации, в соответствии с чем предоставляем " & ZUI1 & "две квитанции" & ZUI9 & _
    ", первая для оплаты до нового года, вторая для оплаты после нового года" & ZB9 & " (оплачивать нужно только по одной квитанции)." & ZB9 & _
B1 & Space(10) & "Оплатить можно в любом отделении ФГУП ""Почта России"" или ПАО ""Сбер""." & _
B1 & Space(10) & "Заранее Вам благодарны!" & _
B1 & _
B1 & "Главный бухгалтер ФЭО ОВО по г. Волгограду                                          И.Е. Чернова"
End Sub