RE: tag definition or tagset

good morning
I apologize I thought I had understood
but maybe not
SetTagValue2 the macro assigns a tag
I want to assign 8 tags to element

Private Sub SetTagvalue2(el As Element, tagName As String, tagValue As Variant)

    On Error GoTo ErrorHandler

    Dim tags() As TagElement
    tags = el.GetTags

    Dim i As Long

    For i = LBound(tags) To UBound(tags)      ' 0 to 7
        If (tags(i).TagDefinitionName = "0_nome") Then
            tags(i).Value = point1.nome
            tags(i).Rewrite

        ElseIf (tags(i).TagDefinitionName = "1_est") Then
               tags(i).Value = Format(point1.x, "0.00")
               tags(i).Rewrite

        ElseIf (tags(i).TagDefinitionName = "1_est") Then
               tags(i).Value = Format(point1.y, "0.00")
               tags(i).Rewrite

        ElseIf (tags(i).TagDefinitionName = "2_nord") Then
               tags(i).Value = Format(point1.y, "0.00")
               tags(i).Rewrite
       .......................
       Else

               Exit Sub
        End If
    Next i

ErrorHandler:
End Sub

It is correct what I'm doing?

thank you