'Ищем конец строки (символы-vbCrlf)
    ' и заносим в массив mixArr()
    
    If Trim(txtMix.Text) = "" Then Exit Sub
    Dim x As Long 'текущая позиция курсора в тексте
    ReDim mixArr( 0 )
    x =  1  'íначинаем поиск с первого символа
    'ищем конец строки
    StrEndPoz = InStr(x, txtMix.Text, vbCrLf)   'позиция конца строки
    
    'если конец строки найден, увеличиваем размерность массива на единицу
    'выделяем строку и присваиваем ее элементу массива mixArr()
    m =  0 
    While StrEndPoz <>  0 
        ReDim Preserve mixArr(m) 'увеличили размерность массива
        mixArr(m) = Mid$(txtMix.Text, x, StrEndPoz - x)   'записали строку в массив
        x = StrEndPoz +  2   'перемещаем курсор на 2 символа от конца строки
        m = m +  1  'увеличили счетчик 
        StrEndPoz = InStr(x, txtMix.Text, vbCrLf)
    Wend
    'выделяем последнюю строку
    If x < Len(txtMix.Text) Then
        ReDim Preserve mixArr(m) 'увеличили размерность
        mixArr(m) = Mid$(txtMix.Text, x)
    End If