ReDim Buffer(RowLength + 1)

Function GetRowContent(hWnd As Long, Optional ByVal nLine As Long = 0) As String
 
  Dim CursorPos As Long
  Dim FirstChar As Long
  Dim RowLength As Long
  Dim Buffer() As Byte
 
  '//////////////////////////////////////////////////////
  'Geändert:
  'Neue Puffer-Variable verwendet
  Dim strBuffer As String
  '//////////////////////////////////////////////////////
 
  On Error GoTo ErrHandler
 
  ' Falls keine Zeilennummer angegeben,
  ' Inhalt der aktuellen Zeile ermitteln
  If nLine < 1 Then
    CursorPos = SendMessage(hWnd, EM_GETSEL, 0, ByVal 0&) \ 65536
    nLine = SendMessage(hWnd, EM_LINEFROMCHAR, CursorPos, ByVal 0&)
  Else
    nLine = nLine - 1
  End If
 
  ' Zeilenlänge ermitteln
  FirstChar = SendMessage(hWnd, EM_LINEINDEX, nLine, ByVal 0&)
  RowLength = SendMessage(hWnd, EM_LINELENGTH, FirstChar, ByVal 0&)
 
 
  '//////////////////////////////////////////////////////
  'Geändert:
  strBuffer = Space$(RowLength)
  SendMessage hWnd, EM_GETLINE, nLine, ByVal strBuffer
  GetRowContent = strBuffer
 
  Exit Function
 
  '//////////////////////////////////////////////////////
 
 
  ' Puffer vorbereiten
  ReDim Buffer(RowLength + 1)
  Buffer(0) = RowLength + 1
 
  ' Zeileninhalt in Puffer auslesen
  SendMessage hWnd, EM_GETLINE, nLine, Buffer(0)
 
  ' Inhalt als String zurückgeben
  GetRowContent = Left$(StrConv(Buffer, vbUnicode), RowLength)
 
  Exit Function
 
ErrHandler:
  Call LogErr(Err, "", "modChessdiagrammer.GetRowContent", "Err", Error)
End Function