Create a new data type
Option Explicit Type article artname As String price As Currency End Type Sub macro() Dim a As article, b As article a.artname = "Screw" a.price = 3.5 b = a Debug.Print b.price End Sub