Option Explicit
Function ThiLai(LookUpRange As Range) As String
Dim Cls As Range
Const DF As String = ", "
For Each Cls In LookUpRange
If Cls.Value < 50 And Cls.Value <> "" Then ThiLai = ThiLai & [A3].Offset(, Cls.Column - 1).Value
If Right(ThiLai, 2) <> DF Then ThiLai = ThiLai & DF
Next Cls
End Function