Function Notta(ByVal x As Object) As String
Dim ret As String
If (x Is DBNull.Value) OrElse (x Is Nothing) OrElse (x Is String.Empty) Then
ret = ""
Else
Try
ret = CStr(x).Trim
Catch
ret = ""
End Try
End If
Return ret
End Function