Use the modified below code line, instead of the one in your first message;
sText = rSelectedRange.Cells(iRow, iColumn).Text