Data Type VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Data Type
  4. 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