Dim Procheteno 'Декларираме променлива в която ще запишем текстовия файл

Dim TestArray() As String ' Декларираме текстов масив, в който ще парсваме (разделяме)

Dim MasivLinkove() 'Декларираме друг масив с учебна цел

Private Sub Command1_Click()

'Тук прочитаме текстовия файл

On Error Resume Next ' Този ред е манипулатор на грешка, няма да позволи затваряне на програмата при грешка

Set fso = CreateObject("Scripting.FileSystemObject") 'Създаваме скриптов обект за работа с файлове

ImeTxtFile = App.Path & "\Baza.txt" ' това е пълното име на текстовия файл, който ще четем

Set ts = fso.OpenTextFile(ImeTxtFile, 1) ' създаваме обект, който прочита файла , 1 е константа за четене

Procheteno = ts.Readall ' Въвеждаме в нашата променлива всичко, което се съдържа в прочетения текстов файл

Text1.Text = Procheteno ' Показваме го в текстовото поле Text1

ts.Close ' Затваряме отворения за четене файл

End Sub

Private Sub Command2_Click()

'Парсваме стринга в масив

priznak = ";" ' Признака по който ще разделяме текста е точка и запетя

Erase TestArray ' Изтриваме масива в който ще въвеждаме, за да сме сигурни, че е празен

TestArray() = Split(Procheteno, priznak) ' Тук ПАРСВАМЕ тоест РАЗДЕЛЯМЕ текста и го въвеждаме в масив

End Sub

Private Sub Command3_Click()

'Зареждане на масив и Listbox

Erase MasivLinkove ' Изтриваме учебния масив, за да сме сигурни, че е празен

List1.Clear ' Почистваме и Listbox

For i = LBound(TestArray) To UBound(TestArray) Step 1 'Цикъл FOR от най-малкия до най-големия елемент в масива

ReDim Preserve MasivLinkove(0 To i) ' Преоразмеряваме учебния масив преди всяко добавяне на елемент

MasivLinkove(i) = TestArray(i) ' Добавяме елемент в учебния масив

List1.AddItem MasivLinkove(i) ' Добавяме елемент и в Listbox

Next

End Sub

Private Sub Command4_Click()

'Записваме файла

Set fso = CreateObject("Scripting.FileSystemObject")

Set tf = fso.CreateTextFile(App.Path & "\Baza.txt", True)

tf.Write (Text1.Text)

tf.Close

''''''''''''''''

End Sub

Private Sub List1_Click()

'Стартиране на линк, чрез браузер

Set objShell = CreateObject("Shell.Application") ' Създаваме обект за стартиране

objShell.ShellExecute "chrome.exe", List1.Text, "", "", 10 'Стартираме избрания елемент от Listbox, чрез Chrome

End Sub