Public Function Load() As XArrayDB
    ' statements
End Function

Public Function Load As XArrayDB
    Dim xArr As XArrayDB
    Set xArr = CreateXArrayDB(0,2)
  
    xArr.AppendRows
    xArr(0,0)="01"
    xArr(0,1)="Caption 01"
  
    xArr.AppendRows
    xArr(1,0)="02"
    xArr(1,1)="Caption 02"
  
    xArr.AppendRows
    xArr(2,0)="03"
    xArr(2,1)="Caption 03"
  
    Set Load = xArr
End Function