' If the first argument is Nothing or a null string return the 2nd argumentFunction IfNull(ByVal value As String, ByVal defaultValue As Object) As String If Not value Is Nothing AndAlso value.Length > 0 Then Return value Else Return CStr(defaultValue) End IfEnd Function