Выравнивание по объему писем с использованием макроса VBA Excel

Question

Я создал инструмент в VBA, который отправляет несколько электронных писем с вложениями одновременно. Моя единственная проблема - это тело письма. Я пытаюсь выровнять свой текст, который я заполнил в ячейке в рабочей тетради справа. содержимое ячейки - это мое тело во всех моих электронных письмах, и оно автоматически выравнивается по левому краю, но мои письма написаны на иврите и арабском c и должны быть выровнены по правому краю.

Я искал в net для чего-то и всего я вижу много ПРЕДЛОЖЕНИЙ с HTML, но ничего не помогает, и мои ожидания с VBA.

Вот пример кода, Спасибо за помощь:

    '*****************************************EMail from here
    Dim outlookApp As Outlook.Application
    Dim myMail As Outlook.MailItem
    Dim source_file, to_emails As String
    Dim FileNameToSend As String
    Dim FullFileToSendName As String
    Dim i, j As Integer



    For i = 2 To CountEmails

            With EmailWS
                to_emails = .Cells(i, 3).Value
                FileNameToSend = .Cells(i, 2).Value
            End With

            Set outlookApp = New Outlook.Application
            Set myMail = outlookApp.CreateItem(olMailItem)

            FullFileToSendName = FileNameToSend & " " & PartFileName
            source_file = path & "\" & FullFileToSendName & ".msg"
            'MsgWS.Cells(1, 5) = FileToSendName
            MsgWS.Range("H1") = source_file

            With myMail
                .To = to_emails
                .Subject = HeadMSG
                MsgWS.Range("I3").Value = FolderPathToSend & "\" & FullFileToSendName & ".xlsx"
                'add attachmets if we do have some
                If LastMailRow > 1 Then
                    .Attachments.Add FolderPathToSend & "\" & FileNameToSend
                End If
                '.Body = Shalom & " " & BodyMsg
                'here I have a proble
.HTMLBody = "<p align=""right"">" & "<br>" & Shalom & " & " < br > " & " & BodyMsg & "</p>"
                .SaveAs source_file, olMSG
                .Send
            End With
    Next i