With the help of Glan and Jeff I have the portion of code now to grab my title block. I looked through other post, and the help, and couldn't really figure out if I was doing this correctly. In my lisp I make a list of list of the revision attributes, and then sort that list so that I know where to put the new one. I have started that phase with VBA, but I am stuck. I have put the attributes I need into variants (hope that what they should be), but I don't know how to sort them by the first value of the variants. I was thinking that I would put the three variants into one main variant (safearry?) and sort that one, and move one from there, but I don't see how to sort. The problem with my sorting is that they can be numbers or alphas, but one per type of drawing. So if one revision is a number, all of them are numbers. Okay enough of me talking, here is my code so far.
Public Sub ApplyRevision(AttVar As Variant)
Dim Level1(0 To 5) As AcadAttribute
Dim Level2(0 To 5) As AcadAttribute
Dim Level3(0 To 5) As AcadAttribute
Level1(0) = AttVar(0): Level1(1) = AttVar(1): Level1(2) = AttVar(2): Level1(3) = AttVar(3): Level1(4) = AttVar(4): Level1(5) = AttVar(5)
Level2(0) = AttVar(6): Level2(1) = AttVar(7): Level2(2) = AttVar(8): Level2(3) = AttVar(9): Level2(4) = AttVar(10): Level2(5) = AttVar(11)
Level3(0) = AttVar(12): Level3(1) = AttVar(13): Level3(2) = AttVar(14): Level3(3) = AttVar(15): Level3(4) = AttVar(16): Level3(5) = AttVar(17)
End Sub