`enter code here ( it works )
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Funcoes.MsgBS(Me.Page, "Hello World!")
End Sub

`enter code here ( does not work )
Sub Marcar()
    Funcoes.MsgBS(Me.Page, "Hello World!")
End Sub