Debugging

Imports System.Text.RegularExpressions
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
    End Sub


    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim Message As String
        Dim strText As String = TextBox2.Text 'yung salita
        Dim letter As String = TextBox3.Text 'yung letrang hahanapin
        Dim ex As New System.Text.RegularExpressions.Regex(letter)
        Dim LetterCount As System.Text.RegularExpressions.MatchCollection
        LetterCount = ex.Matches(strText)

        Message = LetterCount.Count.ToString()
        TextBox1.Text = letter & " appear " & Message & " times."
    End Sub
End Class