How to create a public array in class module?

[Bob Phillips]

Option Explicit

Public strf As Variant
Dim strf1 As Variant, strf2 As Variant, strf3 As Variant

Public Sub sf()
    strf1 = Array(1, 2, 3)
    strf2 = Array(4, 5, 6)
    strf3 = Array(6, 7, 9)
    strf = Array(strf1, strf2, strf3)
End Sub

Sub CallMyClass()
Dim cls As Class1

    Set cls = New Class1

    cls.sf
    Debug.Print cls.strf(2)(2)

End Sub