Type RecClass1 field01 As String * 4 field02 As Integer End Type
Sub test()
data = "abcdyyzzzz・・" ' HEX representation: "414243440006??????・・"
Dim rec0 As RecClass0 Dim rec1 As RecClass1 rec0.field01 = data
rec1 = rec0 ' Type mismatch error
Debug.Print Len(rec1.field02) ' Cannot determine length of field02, as it is not a string End Sub
ChatGPT Jan 9 Version. Free Research Preview. Our goal is to make AI systems more natural and safe to interact with. Your feedback will help us improve.
