To get ride off the VBA code

[Barieq]

Dear All,

Whenever I open VB the below code will be already present in it. I need your help to remove this code permanently.

'Entry point for RibbonX button click
Sub ShowATPDialog(control As IRibbonControl)
Application.Run ("fDialog")
End Sub

'Callback for RibbonX button label
Sub GetATPLabel(control As IRibbonControl, ByRef label)
label = ThisWorkbook.Sheets("RES").Range("A10").Value
End Sub