VBA create, rename and change the order of layers

Question

Hallo forum,
I create with VBA an Illustrator sheet with custom size:
'define size
Dim B_cust, H_cust As Integer
Set appRef = CreateObject("Illustrator.Application")
B_cust = CInt(InputBox("B=", "Higth:"))
H_cust = CInt(InputBox("H=", "Width:"))
Set newDocument = appRef.Documents.Add(aiDocumentCMYKColor, B_cust, H_cust)
This works fine
I would have fore each new document the same layer order like
cad
symbol
text
Rem ###new Layer###
Set myDoc = appRef.ActiveDocument
Set myLayer = myDoc.Layers.Add()
Set myLayer.Name = "cad"
I'm not able to rename the created layer ?
Somebody can help me ?
Furthermore I would erase the default Layer LEVEL 1
Thank you

Answer 1

Hallo, I found a solution ! I forgot to define the variable !
Dim idoc As Illustrator.Document
Dim iframe As Illustrator.TextFrame
Dim ilayer As Illustrator.Layer
Set appref = CreateObject("illustrator.Application")
Set idoc = appref.ActiveDocument
Set ilayer = idoc.Layers.Add
ilayer.Name = "cad"
Set ilayer = idoc.Layers.Add
ilayer.Name = "symbol"
Set ilayer = idoc.Layers.Add
ilayer.Name = "text"