Определить, входит ли заданное слово в строку

Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Label3.Text = TextBox1.TextLength 'определяем длину строки
        Label5.Text = TextBox1.Text.Substring(0, (TextBox1.Text.Length / 2)) 'показываем половину строки
        Label9.Text = StrConv(TextBox1.Text, VbStrConv.Uppercase) 'меняем регистр букв
        'Здесь надо вставить код для поиска слова
    End Sub
End Class

        Dim str1 As String = TextBox1.Text.ToLower
        Dim str2 As String = TextBox2.Text.ToLower
        Dim k As Integer = 0
        For i = 0 To str1.Length - str2.Length
            If str1.Substring(i, str2.Length) = str2 Then
                MessageBox.Show("Yes!")
                k = 1
            End If
        Next
        If k = 0 Then MessageBox.Show("No!")

If TextBox1.Text.Contains(TextBox2.Text) Then
'Входит
Else
'Не входит
End If

If TextBox1.Text.ToLower().Contains(TextBox2.Text.ToLower()) Then
'Входит
Else
'Не входит
End If

If TextBox1.Text.IndexOf(TextBox2.Text, StringComparison.InvariantCultureIgnoreCase) <> -1 Then
'Входит
Else
'Не входит
End If

If TextBox1.Text.IndexOf(TextBox2.Text) <> -1 Then
'Входит
Else
'Не входит
End If