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

Imports System
Imports System.Linq
Imports System.IO
 
Module Program
    Sub Main(args As String())
        Dim text As String
        Using file As StreamReader = New StreamReader("C:\Users\User\source\repos\VisualBasicSQLMethod\text.txt")
            text = file.ReadLine()
        End Using
        Console.WriteLine("Input what to find: ")
        Dim search As String = Console.ReadLine()
        Dim getDataSplit As String() = text.Split(New Char() {" ", ",", ".", ";", ":"}, StringSplitOptions.RemoveEmptyEntries)
        Dim query = From word In getDataSplit Where word.ToLowerInvariant() = search.ToLowerInvariant() Select word
        Dim count As Integer = query.Count()
        Console.WriteLine(count & " we found for word - """ & search & """")
    End Sub
End Module

Dim text As String = "Финляндия в своем классическом стиле победила Германию в другом полуфинале и второй раз подряд сыграет в финале."
Dim ch As Char = "я"c
Dim chCount As Integer = Aggregate cc In text.ToCharArray Into Count(Char.ToLower(cc) = ch)