示例：创建文件夹并添加标签

Sub CreateTagDBFolder()
On Error GoTo Err_Handler
Dim oNewTag As Tag
'Create a folder and subfolder.
TagDB.CreateFolder "Machine1\Motor1"
'Add a tag to the folder.
Set oNewTag = TagDB.CreateTag("Machine1\Motor1\Speed", AnalogTag)
'Configure tag properties.
oNewTag.Description = "My New Tag"
'Save the tag configuration.
oNewTag.WriteConfiguration
'Release resources associated with the tag object.
Set oNewTag = Nothing
Exit Sub
Err_Handler:
'Release resources associated with the tag object.
Set oNewTag = Nothing
MsgBox "Error creating folder or tag." & vbCrLf & vbCrLf & _
Err.Description, vbExclamation, "CreateFolder"
End Sub