Public Sub Ola  ()
If 1+1=2 then
Msgbox "Olá Mundo" vbInformation, "Acesso Liberado"
Else 
Msgbox "Ops, houve algum erro", vbInformation, "Acesso Negado"
End sub