' zunächst die benötigten API-Deklarationen
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

Dim nCount As Long
Dim nLine As Long
Dim nLen As Long
Dim sLine As String
 
' Auszulesende Zeile
nLine = 3
 
' zunächst die Anzahl der Zeilen ermitteln
nCount = SendMessage(TextBox.hwnd, EM_GETLINECOUNT, 0, 0&)
 
' Jetzt Zeile auslesen
If nCount >= nLine Then
  sLine = Space$(1024)
  nLen = SendMessage(TextBox.hwnd, EM_GETLINE, nLine - 1, sLine)
  sLine = Left$(sLine, nLen)
  MsgBox sLine
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de