Public Sub IsEmptyString(x As String) As Boolean
Dim bEmpty As Boolean
bEmpty = x = Null ' Because pure Null
If Not( bEmpty ) Then
bEmpty = x.CompareTo(Null) = 0 ' Because origin is field of table bbdd
If Not( bEmpty ) Then
Dim cTrim As String = x.Trim
bEmpty = cTrim.Length < 1
End If
End If
Return bEmpty
End Sub