If tblFields.Get("casesummary") = Null Or tblFields.Get("casesummary") = "" Then
rCellValues.Add("-")
Else
Dim desc As String = tblFields.Get("casesummary")
If desc.Length > 25 Then
desc = desc.SubString2(0,25)&"..."
rCellValues.Add(desc)
Else
rCellValues.Add(desc)
End If
End If
rCellThemes.Add("nocolor")