Public Class Form1
    Dim searchtext1 As String = "1"
    Dim searchtext2 As String = "2"
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles Button1.Click
        TextBox2.Text = "Wort " & searchtext1 & ", " & SearchtextCount1( _
          TextBox1.Text, searchtext1).ToString & " x vorhanden" & vbCrLf & _
         "Wort " & searchtext2 & ", " & SearchtextCount2(TextBox1.Text, _
         searchtext2).ToString & " x vorhanden"
    End Sub
 
    Function SearchtextCount1(ByVal txt As String, ByVal searchtext As String) _
      As Int32
        Return System.Text.RegularExpressions.Regex.Matches(txt, _
          searchtext1).Count()
    End Function
    Function SearchtextCount2(ByVal txt As String, ByVal searchtext As String) _
      As Int32
        Return System.Text.RegularExpressions.Regex.Matches(txt, _
          searchtext2).Count()
    End Function
End Class