Display Range of Values with MsgBox

Try this.

For Each cl In Range("A1:A10")
     strMsg = strMsg & cl.Value & " has a balance of " & cl.Offset(,1).Value & ","
Next cl

MsgBox Left(strMsg, Len(strMsg)-1)