Поиск слова в строке без учета регистра букв

Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
        Dim str As String, s As String, n As Integer, i As Integer
        str = txtLine.Text
        s = txtWord.Text
        Do
            i = InStr(i + 1, str, s)
            If i > 0 Then
                n = n + 1
            Else
                Exit Do
            End If
        Loop
        MsgBox(CStr(n))
    End Sub

Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
 Dim str As String, s As String, n As Integer, i As Integer
 str = txtLine.Text
 s = txtWord.Text
 Do
 i = InStr(i + 1, str.ToLower, s.ToLower)
 If i > 0 Then
 n = n + 1
 Else
 Exit Do
 End If
 Loop
 MsgBox(CStr(n))
 End Sub

Dim input1 as string= "МаМа МыЛа РамУ"
Dim input2 as string = "Мама"
input1= input1.ToLower ' Теперь в input1 хранится "мама мыла раму"
input2= input2.ToLower ' Теперь в input2 хранится "мама"