Перезапись строк массива в ListBOX - VB

не получается переписать строки массива Data до перехода на следующую строку в строки ListBox, пробовал так, ничего не записывается

 If InStr(1, Data(w, 1), vbCrLf) > 0 Then
    Stroka = Mid(Data(w, 1), 1, InStr(1, Data(w, 1), vbCrLf))
    List1.AddItem (Stroka)
    End If

textual
                            Листинг программы 
                        
                             Stroka = Split(Data(w, 1), vbNewLine)(0)

Оцени полезность:

12 голосов , оценка 4.083 из 5

Похожие ответы