Function Combine(WorkRng As Range, Optional Sign As String = ", ") As String
'Update 20130815
Dim Rng As Range
Dim OutStr As String
    For Each Rng In WorkRng
        If Rng.Text = vbNullString Then Exit For
        OutStr = OutStr & Rng.Text & Sign
    Next
Combine = Left(OutStr, Len(OutStr) - Len(Sign))
End Function