示例：创建字符串标签

Sub CreateStringTag()
On Error GoTo ErrHandler
Dim userTag As Tag
Set userTag = TagDB.CreateTag("Test\String", StringTag)
userTag.Description = "This is a test string tag"
userTag.Length = 81
userTag.InitialValue = "Test string tag"
userTag.WriteConfiguration
'Release resources.
Set userTag = Nothing
ErrHandler:
If Err Then
MsgBox Error
'Release resources.
Set userTag = Nothing
Exit Sub
End If
End Sub