Dim mystr As String = Nothing
 
        If String.IsNullOrEmpty(mystr) Then
            MsgBox("String ist Nothing oder Leer")
        End If
 
        If String.IsNullOrWhiteSpace(mystr) Then
            MsgBox("String ist Nothing, Leer oder enthält nur Leerzeichen")
        End If
 
        'Aufruf als Extension Method 
        If Not mystr.ContainsChars() Then
            MsgBox("String ist Nothing oder Leer")
        End If

   <System.Runtime.CompilerServices.Extension()>
    Public Function ContainsChars(ByVal str As String) As Boolean
        Return Not String.IsNullOrEmpty(str)
    End Function