<code><font color=green>' zunächst die benötigten API-Deklarationen</font>
Private Declare Function SendMessage Lib "user32" _ 
  Alias "SendMessageA" (ByVal hwnd As Long, _ 
  ByVal wMsg As Long, ByVal wParam As Long, _ 
  ByVal lParam As Any) As Long 
 
Private Const EM_GETLINE = &HC4 
Private Const EM_GETLINECOUNT = &HBA
 
Public Function ReadTextLine(TextBox As TextBox, _
  ByVal LineToRead As Long) As String
 
  Dim lngLineCount As Long 
  Dim lngLineLength As Long 
  Dim strLine As String 
 
  <font color=green>' zunächst die Anzahl der Zeilen ermitteln</font>
  lngLineCount = SendMessage(TextBox.hwnd, _ 
    EM_GETLINECOUNT, 0, 0&) 
 
  <font color=green>' jetzt die x. Zeile Zeilen auslesen</font>
  If LineToRead > 0 And LineToRead <= lngLineCount Then
    strLine = Space$(1024) 
 
    lngLineLength = SendMessage(TextBox.hwnd, _ 
      EM_GETLINE, LineToRead - 1, strLine) 
 
    ReadTextLine = Left$(strLine, lngLineLength)
  End If
End Function</code>