Excel VBA 質問スレ Part79

>>37
ちゃんと動いた
Type RecClass0
field01 As String * 6
End Type
Type RecClass1
field01 As String * 4
field02 As Integer
End Type

Sub test()
Data = "abcdefgh"
Mid(Data, 4, 2) = Chr(&H0) & Chr(&H6)
Debug.Print Data
Dim rec0 As RecClass0
Dim rec1 As RecClass1
rec0.field01 = Data
LSet rec1 = rec0
Debug.Print "len=", Len(rec1.field02), "value=", rec1.field02
End Sub

実行結果
abc fgh
len= 2 value= 6