Public Sub UpdateWTDCode( _
   ByVal pIWTDCode As WTDCode _
)