'====================================================================================================
Function PRDX_IsEmpty(vl, Optional MsgEmpty As Boolean, Optional MsgFull As Boolean, Optional MsgFakeEmpty As Boolean, Optional MsgFakeFull As Boolean) As Long ' 1 = пустое; 0 = не пустое; -1 = псевдопустое (строка нулевой длины); -2 = псевдополное (только обычные и неразрывные пробелы + переносы)
Dim x

    If vl <> Empty Then
        x = vl
        If PRDX_Trim(x) Then
            If x = Empty Then
                If MsgFakeFull Then MsgBox "Значение «" & vl & "» — ПСЕВДОПОЛНОЕ!", vbExclamation, "PRDX_IsEmpty"
                PRDX_IsEmpty = -2: Exit Function
            End If
        End If

        If MsgFull Then MsgBox "Значение «" & vl & "» НЕ ПУСТОЕ!", vbExclamation, "PRDX_IsEmpty"

    ElseIf IsEmpty(vl) Then
        PRDX_IsEmpty = 1
        If MsgEmpty Then MsgBox "Найдено ПУСТОЕ значение!", vbExclamation, "PRDX_IsEmpty"
    Else
        PRDX_IsEmpty = -1
        If MsgFakeEmpty Then MsgBox "Найдена строка нулевой длины (псевдопустая)!", vbExclamation, "PRDX_IsEmpty"
    End If
End Function
'====================================================================================================
Function PRDX_Trim(vl) As Boolean ' заменяет неразрывные пробелы на обычные и удаляет лишние. Возвращает True/False, в зависимости от того, произведены ли изменения
Dim orig, x
Static REsp As RegExp, REcr As RegExp

    If REsp Is Nothing Then
        Set REsp = New RegExp: REsp.Global = True: REsp.Pattern = " {2,}"
        Set REcr = New RegExp: REcr.Global = True: REcr.Pattern = "[ \s]"
    End If

orig = vl
If InStr(vl, " ") Then vl = Replace(vl, " ", " ")                       ' заменяем неразрывные пробелы
vl = Trim(vl): If InStr(vl, "  ") Then vl = REsp.Replace(vl, " ")       ' сжимаем обычные пробелы

    If REcr.test(vl) Then
        x = REcr.Replace(vl, "")
        If Len(x) = 0 Then vl = Empty: PRDX_Trim = True: Exit Function  ' если строка состоит только из переносов и пробелов, то заменяем на пустоту и выходим
    End If

If vl <> orig Then PRDX_Trim = True
End Function
'====================================================================================================

Function PRDX_IsEmpty(vl) As String
If vl <> Empty Then "Значение «" & vl & "» НЕ ПУСТОЕ!": Exit Function
If IsEmpty(vl) Then PRDX_IsEmpty = "Найдено ПУСТОЕ значение!": Exit Function
PRDX_IsEmpty = "Найдена строка нулевой длины (псевдопустая)!"
End Function