What is wrong with this code?

[jtm2020hyo]

I tried:

Dim Tag_List
Function DefineTag(Tag_List)
Select Case Tag_List
	Case "NAME"
		A1 = [B]
	Case Else
		A1 = ""
End Select
End Function
DefineTag([A])
RETURN = A1

... but do nothing, anyone could help me here?, not sure what is wrong here.

[A]=AAA
=NAME

WHEN B is a string "NAME", RETURN Should be equal to "AAA", if not, "" (empty)

 

[strongm]

Something like

[COLOR=blue]Select Case [B]
	Case "NAME"
		A1=[A]
	Case Else
		A1=""
End Select

RETURN=A1[/color]

 

[jtm2020hyo]

Thanks for reply, this work but how should I use "Function" and "Sub"?

 

[strongm]

CAn't really tell you - this isn't really VbScript, it looks like an Autodesk formula definition, and not sure how that uses subs/functions. You'll have to check your Autodesk documentation.