' 構造体の宣言は Type ステートメントを使う
Type MyStruct
    Name As String
    Age  As Integer
End Type
          

' モジュールレベル（グローバル領域）で宣言
' プロージャレベルでは宣言出来ない

' 構造体の宣言（ユーザー定義型とも言う）
Type MyStruct
    Name As String   ' 筆者は As から型の位置を揃えるクセがあります
    Age  As Integer
End Type



Sub Sample()

' MyStruct型の変数の宣言
Dim Status As MyStruct

'値の代入
Status.Name = "たろ"
Status.Age = 22

'シートに反映
Cells(1, 1).Value = "名前は"
Cells(2, 1).Value = "歳は"
Cells(1, 2).Value = Status.Name
Cells(2, 2).Value = Status.Age

End Sub

Type MyStruct
    aaa As Integer
    bbb As Byte
    ccc As Long
    ddd As String
    eee As Boolean
End Type

Sub Sample()
Dim var As MyStruct

' アドレスとメンバの型の領域を表示
Debug.Print VarPtr(var.aaa); Len(var.aaa)
Debug.Print VarPtr(var.bbb); Len(var.bbb)
Debug.Print VarPtr(var.ccc); Len(var.ccc)
Debug.Print VarPtr(var.ddd); Len(var.ddd)
Debug.Print VarPtr(var.eee); Len(var.eee)

End Sub