Visual Basic задачи на строки

[вася радугов]

1. Найти в тексте заданное слово и выдать на экран количество найденных слов
Проблема в том что Basic я начал изучать недавно и плохо еще знаю основные функции. Вот мой код, но программа неправильно работает. Вместо того чтобы выводить количество слов, она выводитт есть ли это слово в введенной стороке или нет (true or false). Подскажите что доработать или переделать. Не судите строго.
Код

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim s1, s2 As String
        Dim k As Boolean

        s1 = TextBox1.Text
        s2 = TextBox2.Text

        k = s1.Contains(s2)

        Label1.Text = k
    End Sub
End Class

[gaw4]

а что она будет выдавать , если Dim k As Boolean /Dim k As Integer/

[вася радугов]

изменил на Dim k As Integer. теперь вместо true or false в label выводится ( -1)

[gaw4]

k = (Len(s1) - Len(Replace(s1, s2, ""))) \ Len(s2)

[вася радугов]

спасибо . вы мне очень помогли.