クラスインスタンス化をプロシージャごとではなく1ヶ所で行う方法について

Question

VBAに関しては初心者なため、とんちんかんな質問と感じてしまうかもしれませんが何卒ご意見よろしくお願いいたします。

クラスのインスタンス化について、いくつかのサイトを調べてみましたが、自分の調べた範囲では、クラスのインスタンス化を各プロシージャごとに行っていました。
このインスタンス化処理の部分を1ヶ所でまとめて行う(共通化する)ことはできないのでしょうか？

例えばですが、下記のようなコードを

Property Get fs() As Object'FileSystemObject
    Static fs_ As Object
    If fs_ Is Nothing Then Set fs_ = CreateObject("Scripting.FileSystemObject")
    Set fs = fs_
End Property

Sub test()'拡張子取得
    Dim cls As ClassModule
    Set cls = New ClassModule
    MsgBox cls.fs.GetExtensionName("C:\Users\users\hogehoge.pdf")
End sub
-----------------------------------------------------------------
Sub test2()'ファイル名取得
    Dim cls As ClassModule
    Set cls = New ClassModule
    MsgBox cls.fs.GetFileName("C:\Users\users\hogehoge.pdf")
End sub

↓このようにしたいと言うことです

Dim cls As ClassModule
Set cls = New ClassModule

Sub test()'拡張子取得
    MsgBox cls.fs.GetExtensionName("C:\Users\users\hogehoge.pdf")
End sub
-----------------------------------------------------------------
Sub test2()'ファイル名取得
    MsgBox cls.fs.GetFileName("C:\Users\users\hogehoge.pdf")
End sub

よろしくお願いいたします。

Comments

[m.ts10806]

現状やってみた問題点は何でしょうか
それとも可不可のみを求められているのでしょうか
質問本文に追記してください

Answer 1

Dim cls As  New ClassModule

Sub test()'拡張子取得
    MsgBox cls.fs.GetExtensionName("C:\Users\users\hogehoge.pdf")
End sub
-----------------------------------------------------------------
Sub test2()'ファイル名取得
    MsgBox cls.fs.GetFileName("C:\Users\users\hogehoge.pdf")
End sub

とすればこのモジュール内で使用できます。

Public cls As  New ClassModule

とすれば他のモジュールからも使用できます。