Помогуте плиз! - VB

Формулировка задачи:

Доброго времени суток.

Уважаемые

программисты помогите пожалуйста. Кидаем на форму: ListBox меняем у него свойство Style на 1. Кидаем на форму кнопку. Текстовый файл: qwe asd ;zxc qwy Задача такая: Нужно из текстового файла добавить строки в лист бокс так что бы строка со знаком ";" была без галочки , а все остальные с галочками. [x]qwe [x]asd [ ];zxc [x]qwy Как то так. Всю ночь пыхтел запутался вообщем у меня получился такой код:

Dim strText As String
Dim FileNum As Integer
Dim FName As String
 
Dim j As Integer
Dim a As Integer
Dim b As String
Dim c As String
Dim listInt As Integer

Private Sub Command2_Click()
' Г±ГІГ*ГўГЁГ¬ ГЈГ*Г«Г®Г·ГЄГі
FileNum = FreeFile
Open App.Path & "\Text.txt" For Input As #FileNum
Do While Not EOF(FileNum)
Line Input #FileNum, strText
 
b = strText
a = Asc(b)
List1.AddItem strText
If a <> 59 Then
List1.Selected(List1.ListCount - 1) = True
End If
 
Loop
Close #FileNum
 
cool
End Sub
 
Function cool()
' ГіГЎГЁГ°Г*ГҐГ¬ ;
FileNum = FreeFile
Open App.Path & "\Text.txt" For Input As #FileNum
Do While Not EOF(FileNum)
Line Input #FileNum, strText
b = strText
a = Asc(b)
c = Replace(b, ";", "")
List1.AddItem c
Loop
Close #FileNum
End Function

Но не получается убрать символ ";" Помогите пожалуйста заранее благодарен.

Решение задачи: «Помогуте плиз!»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Комманда1_Click()
Dim J
   Dim File As String, CF As String
   'объявим пеpеменнyю для имени файла и его cодеpжимого
   File = "C:\text.txt"
   'ycтановим имя файла и пyть
   Open File For Binary As #1
   'откpоем файл для чтения
      CF = Input(FileLen(File), 1)   'загpyзить в пеpеменyю CF вcе cодеpжимое файла
   Close #1
   'закpыть файл
   
   For J = 0 To UBound(Split(CF))
   Список1.AddItem Replace(Split(CF)(J), ";", "")
   Список2.AddItem Replace(Split(CF)(J), ";", "")
            If Asc(Split(CF)(J)) <> 59 Then
                   Список1.Selected(Список1.ListCount - 1) = True
                   Список2.Selected(Список2.ListCount - 1) = True
            End If
  Next J
 
End Sub
                        