ما هو كود حساب تكرار حرف معين فى جملة

Private Sub Command1_Click()
Dim i, c As Integer

	For i = 1 To Len(Text1.Text)
		If Mid(Text1.Text, i, 1) = "a" Then
			c = c + 1
		End If
	Next

	MsgBox c
End Sub

هذا الأمر , يحسب تكرار الحرف "a" في مربع النص Text1 ويظهره في Msgbox