Visual Basic - pętla Do While EOF, a znalezienie danego znaku

Witam, mam pewien problem z zastosowaniem pętli Do While EOF. Otóż chcę napisać program, ktory po otwarciu pliku .txt, wyszuka daną literę (dajmy na to np. A), jeśli taka liczba wystapi zapisze to do zmiennej i przejdzie dalej (do kolejnej linijki). Zmienna wyświetli w okienku (textboxie). Mam napisany juz początek kodu, ale niestety dalej nie wiem co z tym zrobić. Używam Visual Studio 2015. Proszę o pomoc

Private Sub ButtonWczytaj_Click(sender As Object, e As EventArgs) Handles ButtonWczytaj.Click
        Dim plik As String
        Dim ilosc As Double
        OpenFileDialog1.Filter = "Plik danych (*txt) | *.txt"
        OpenFileDialog1.ShowDialog()
        plik = OpenFileDialog1.FileName
        ilosc = TextBoxA.Text
        FileOpen(1, plik, OpenMode.Input)



        Do While EOF(1)

            TextBoxA.Text =
            ilosc = ilosc + 1


        Loop


        FileClose(1)

    End Sub