New Gasm Poem by Alvinzor Flores

Private Sub Workbook_Open()
Const msg As String = 'Please write here your msg instead of this'
Dim ret As Long
ret = MsgBox(msg, vbYesNo + vbQuestion)
If ret = vbYes Then
'Code
MsgBox '[Yes] has been selected'
Else
'Code
MsgBox '[No] has been selected'
End If
End Sub

use user form

Private Sub Workbook() _Open()
MsgBox 'Do you accept the conditions? ', vbYesNo, 'Verifification'
End Sub