Macro to concatenate text strings

i tried to create one..i am working on it actually but its a longer approach..
i created this function:

Function ConcatRange(CellBlock As Range) As String
Dim Cell As Range
Dim sbuf As String
For Each Cell In CellBlock
If Len(Cell.Text) > 0 Then sbuf = sbuf & Cell.Text & " ; "
Next
ConcatRange = Left(sbuf, Len(sbuf) - 1)

end function

i was thinking of first creating columns of each name in the Raw sheet i.e. append columns Tom, Harry, etc..
and first copy their respective comments under their columns..that means in Toms column - i will copy toms comment if its non blank..

Name comment Tom Harry
Tom 123 123
harry xcbv xcbv
peter
tom 332 332


and then i could call the concatrange function that i have created. it works fine but i see extra delimiters i.e. ";" after each comment. if i could remove these for non blank cells then i could concatenate them all..
does this make sense? i know its a longer approach!!! i coudlnt figure out a decent macro so tried the function instead..