Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

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