passing variable name rather than the variable

[dglienna]

Create a TYPE of your own, for FRUIT

Type SystemInfo
   CPU As Variant
   Memory As Long
   DiskDrives(25) As String   ' Fixed-size array. if you need one for each
   VideoColors As Integer
   Cost As Currency
   PurchaseDate As Variant
End Type

or create an array of them, and assign values

Dim AllSystems(1) As SystemInfo
AllSystems(0).CPU = "386SX"
AllSystems(0).DiskDrives(2) = "100M SCSI"

You can pass procedure arguments using a user-defined type.

Sub FillSystem (SomeSystem As SystemInfo)
   SomeSystem.CPU = lstCPU.Text
   SomeSystem.Memory = txtMemory.Text
   SomeSystem.Cost = txtCost.Text
   SomeSystem.PurchaseDate = Now
End Sub