Sub NewAttribute ( Name As String, Value As String )