11-13-2023, 05:20 AM
Cool! But it is more complex than I need which is mostly:
Code: (Select All)
' put array into UDT string.
For L = 1 To 8
Mid$(DataRecord.Array, (L - 1) * 2 + 1, 2) = MKI$(Array(L))
Next