Dim leerchar As Char = ""
        Dim leerstring As String = ""
 
        leerstring = leerchar.ToString()
 
        If leerstring.Length = 0 Then
            MsgBox("leerstring ist leer")
        Else
            MsgBox("leerstring ist nicht leer")
        End If