Miscellany

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim LetterCount As Integer = 0
        Dim strText As String
        strText = "Debugging"
        For each c as char in strtext
            If c = "g" Then
                LetterCount = LetterCount + 1
            End If
        Next
        rt1.Text = "G appears" & LetterCount & "times"
    End Sub