Private sub teste()
msgbox "teste"
end sub