Regards, Otser.

use this function where
    buffer = texbox.text ,
    delim = vbcrlf and
    stringarray = the array with the lines

Filip

------------------------------------------

Private Function ParseString(ByVal buffer As String, ByVal delim As String,
StringArray() As String) As Integer
    Dim count As Integer

    count = 0

    Do Until Len(buffer) = 0
        If InStr(buffer, delim) Then
            ReDim Preserve StringArray(count)
            StringArray(count) = Left(buffer, InStr(buffer, delim) - 1)
            buffer = Mid(buffer, InStr(buffer, delim) + 1)
            count = count + 1
        Else
            ReDim Preserve StringArray(count)
            StringArray(count) = buffer
            buffer = ""
            count = count + 1
        End If
    Loop

    ParseString = count
End Function

------------------------------------------

Lee Weiner
weiner AT fuse DOT net
http://home.fuse.net/lweiner

:-) You may, however, want to get lines exactly as they appear in the Text
Box. If this is what you want then the following stuff (which I got some
time ago from this Newsgroup, should do it for you.

Mike

Put the following in the General Declarations section of a form:
  Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hwnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, lParam As Any) As Long
  Private Const EM_GETLINECOUNT = &HBA
  Private Const EM_GETLINE = &HC4
Use this code to get the lines:
  Dim lLines As Long, lRet As Long
  Dim i As Integer
  Dim sBuffer As String * 80
  'Make sure there's something in the box
  If Len(Text1) Then
    'Get the number of lines in the box
    lLines = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0, 0)
    'Set up the buffer to receive the text
    MsgBox "Number of Lines: " & lLines
    Mid$(sBuffer, 1, 1) = Chr$(79 And &HFF)
    Mid$(sBuffer, 2, 1) = Chr$(79 \ &H100)
    'Retrieve each line into the buffer & print
    For i = 0 To lLines - 1
      lRet = SendMessage(Text1.hwnd, EM_GETLINE, i, ByVal sBuffer)
      MsgBox Left$(sBuffer, lRet)
    Next
  End If
The code assumes there is no more than 79 characters in each line.  If you
have more, you need to increase the size of sBuffer and the numbers (79)
used
in setting up the buffer.

Public r As Long, l As Long, tmp As String
Public line(0 to 999) As String

l = 0: r = 1: tmp = Text1

While r <> 0
    r = InStr(tmp, vbNewLine)
    If r <> 0 Then
        l = l + 1
        line(l) = Left(tmp, r - 1)
        tmp = Mid(tmp, r + 2)
    End If
Wend

Regards, Otser.