macro - send a value to caption with text message

I'm trying to pass on a value count to the caption along with a "message" but I'm missing something.  Run time error 13.  Type mismatch.

partial sample code-

Next s
Next i
sr.AddToSelection
frmBreakDims.Caption = (sr.Count) + ("test")