This is sort of where I went using the following enum structure and
modifying your Select Case construct as follows...

Enum acAttribs
Handle '0
BlockName '1
Tag '2
Loops '3
Address '4
Label1 '5
Label2 '6
DeviceLabel '7
ExtLabel '8
Qty '9
ModelNum '10
Descr '11
Vendor '12
CSFM_Num '13
End Enum

Select Case vNewAttribs(n).TagString
Case "HANDLE"
saAttribs(acAttribs.Handle) = vNewAttribs(n).TextString
Case "BLOCKNAME"
saAttribs(acAttribs.BlockName) = vNewAttribs(n).TextString
Case "TAG"
saAttribs(acAttribs.Tag) = vNewAttribs(n).TextString
Case "LOOP"
saAttribs(acAttribs.Loops) = vNewAttribs(n).TextString
Case "ADDRESS"
saAttribs(acAttribs.Address) = vNewAttribs(n).TextString
Case "LABEL1"
saAttribs(acAttribs.Label1) = vNewAttribs(n).TextString
Case "LABEL2"
saAttribs(acAttribs.Label2) = vNewAttribs(n).TextString
Case "DEVICE_LABEL"
saAttribs(acAttribs.DeviceLabel) = vNewAttribs(n).TextString
Case "EXTENDED_LABEL"
saAttribs(acAttribs.ExtLabel) = vNewAttribs(n).TextString
Case "QTY"
saAttribs(acAttribs.Qty) = vNewAttribs(n).TextString
Case "MODEL_NUM"
saAttribs(acAttribs.ModelNum) = vNewAttribs(n).TextString
Case "DESCRIPTION"
saAttribs(acAttribs.Descr) = vNewAttribs(n).TextString
Case "VENDOR"
saAttribs(acAttribs.Vendor) = vNewAttribs(n).TextString
Case "CSFM_NUM"
saAttribs(acAttribs.CSFM_Num) = vNewAttribs(n).TextString
End Select

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion

---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus