Определить, сколько слов в тексте начинается на указанную букву

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim F1, F2, i, L, k As Integer
        Dim s, N As String
 
        F1 = FileSystem.FreeFile()
        FileOpen(F1, "input222.txt", OpenMode.Input)
 
        F2 = FileSystem.FreeFile()
        FileOpen(F2, "output222.txt", OpenMode.Output)
 
        N = CStr(InputBox("Введите букву"))
 
        k = 0
 
        Do While Not FileSystem.EOF(F1)
            s = FileSystem.LineInput(F1)
            L = s.Length
            For i = 1 To L
                If Mid(s, i, 1) = N Then k = k + 1
            Next i
        Loop
        FileSystem.PrintLine(F2, k)
        FileSystem.FileClose(F1)
        FileSystem.FileClose(F2)