如何在Excel VBA函数中返回记录数组？

Type Record
    Field1 As String
    Field2 As Integer
    Field3 As Double
End Type

Function GetRecords() As Record()
    Dim records() As Record
    ReDim records(1 To 3) ' 假设有3条记录
    
    ' 填充记录数据
    records(1).Field1 = "Record 1"
    records(1).Field2 = 10
    records(1).Field3 = 1.23
    
    records(2).Field1 = "Record 2"
    records(2).Field2 = 20
    records(2).Field3 = 4.56
    
    records(3).Field1 = "Record 3"
    records(3).Field2 = 30
    records(3).Field3 = 7.89
    
    GetRecords = records ' 返回记录数组
End Function

=GetRecords()