Private Function ConvertExlTxt(ByVal sExlVal As String) As String
   If Len(sExlVal) > 1 Then
        If Asc(Right(sExlVal, 1)) = 133 Then
            ConvertExlTxt = Left(sExlVal, Len(sExlVal) - 1) & "..."
        End If
   End If
End Function