SELECT DealList.Comment, Len(Brackets([DealList].[Comment])) AS Expr1
FROM DealList;

Public Function Brackets(Comment As String) As String
Dim ib As Integer, ie As Integer, str As String
Brackets = ""
str = Nz(Comment, "")
ib = InStr( 1 , str, "<")
ie = InStr( 1 , str, ">")
If ib >  0  And ie > ib Then
Brackets = Left(str, ie -  1 )
Brackets = Right(Brackets, Len(Brackets) - ib)
End If
End Function

SELECT DealList.Comment, Len(Brackets(Nz([DealList].[Comment],""))) AS Expr1
FROM DealList;

SELECT DealList.PartStatus, DealTypeTerms.DealStageName,
 Status.StatusText, Status.StatusComment, DealTypeTerms.Item,
 DealList.PartStatus, Status.StatusID, DealList.Amount, Status.StatusText,
 DealList.Comment, DealList.DealID, DealList.PartTypeID, ([Item]> 1  Or 
(DealList.MaxOfStatus)= 7 ) AS Expr1, Status.StatusID, Deals.DealName, Brackets
([DealList.Comment]) AS BracketsComment, Companies.FullCompanyNameRus, Len
(Brackets([DealList.Comment])) AS LB

FROM (Companies RIGHT JOIN Filials ON Companies.CompanyID = Filials.CompanyID)
 RIGHT JOIN (Deals RIGHT JOIN (DealTypeTerms RIGHT JOIN (DealList LEFT JOIN
 Status ON DealList.MaxOfStatus = Status.StatusID) ON DealTypeTerms.DTTID = 
DealList.DTTID) ON Deals.DealID = DealList.DealID) ON Filials.FilialID = 
DealList.FilialID

WHERE (((DealList.DealID)=get_DealID()) AND ((DealList.PartTypeID)
=get_PartTypeID()) AND ((([Item]> 1  Or ([DealList].[MaxOfStatus])= 7 ))=True) AND
 ((([Item]> 1  Or Len([DealList].[Comment])> 0 ))=True) AND ((IsNull
([DealList.Amount]))=False))

ORDER BY DealTypeTerms.Item DESC , DealList.PartStatus, Status.StatusID DESC ,
 DealList.Amount DESC , Companies.FullCompanyNameRus;