Excel Forum

Code: Select all

Public Function numofchar(ByVal a As String) As Integer
        Dim i, cnt As Integer
        Dim ch As Char
        For i = 1 To Len(a)
            ch = Mid(a, i, 1)
            Select Case UCase(ch)
                Case "#"
                    cnt = cnt + 1
            End Select
        Next
        Return cnt
    End Function

    
    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        Dim has As Integer
        has = numofchar(RichTextBox1.Text)
        TextOK.Text = has
    End Sub