Public Sub SetAttrib(objTag As Object, ByVal strAttribute As String, vAttribValueNew As Variant)
objTag.setAttribute strAttributemvAttribValueNew
End Sub
Public Sub SetAttrib(objTag As Object, ByVal strAttribute As String, vAttribValueNew As Variant)
objTag.setAttribute(strAttribute) = vAttribValueNew
End Sub