配列に同じ値がいくつあるかカウントする

配列hairetuに「課長」「部長」「係長」「副課長」「課長」「部長」と6個の要素が入っています。
この配列hairetuに”課長”がいくつ含まれているかカウントします。

 

Private Sub CommandButton1_Click()
　Dim hairetu As Variant
　Dim i As Long
　Dim n As Long

　hairetu = Array("課長", "部長", "係長", "副課長", "課長", "部長")
　i = 0
　n = 0

　For i = 0 To UBound(hairetu)
　　If hairetu(i) = "課長" Then
　　n = n + 1
　　End If
　Next i

　MsgBox n
End Sub