Add Comments, No Spaces

I have a sub that works just fine, but I need to test it for blanks.

Sub AddToComment()
Dim rCell As Range
Dim cCom As Comment
Sheets("Support Detail").Select
With Range("e5")
.ClearComments
Set cCom = .AddComment
End With
Sheets("Sheet1").Select
For Each rCell In Range("a4:a23")
cCom.Text Text:=rCell.Text & " " & cCom.Text
Next rCell
End Sub

I only have 1 line of test in the a4:a23 range - so I'm getting 19 spaces before the text in the comment. If the cells within a4:a23 are blank, how do I ignore them? I'm not sure how to interpret this code, so I'm sure it's probably easy:

cCom.Text Text:=rCell.Text & " " & cCom.Text