WorksheetFunction関数？

さて、表題ですが私は時々使いますね、そこまでの頻度ではありませんが
Excelバージョンの差異に注意しないといけないし。

---

Public Sub test()
Dim Variable As Variant, ModeVariable As Long, ModeCount As Variant
Variable = Array(1, 3, 5, 7, 1)

  ModeVariable = WorksheetFunction.Mode(Variable)
  Debug.Print "最頻値は→　" & ModeVariable
Stop
  ModeCount = Split(Join(Variable), ModeVariable)
  Debug.Print "出現回数は→　" & UBound(ModeCount)

End Sub

---

Access で必要なら Excelをクリエイトオブジェクトしてでも、
使うこともあるくらい重宝しています、稀にWordですら起こしますから
もちろん 非表示状態で。

Excel関数も処理が遅い訳でもなく、有能です。
引数の限度には注意してくださいね、たしか255個まで！