Dim Länge As Integer
        Dim Zeile As Integer
        Dim Cursor As Integer
        Dim ZeilenAnzahl As Integer
        Dim ZeilenHöhe As Integer
 
        With txtZeile
            Cursor = .Cursor.Position.Y
            ZeilenAnzahl = .Lines.Length - 1
            ZeilenHöhe = .Font.Height.ToString
            MsgBox((ZeilenHöhe * ZeilenAnzahl) / (Cursor))
        End With