【アルゴリズム】 配列に同じ値がいくつあるかカウントする

配列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