Function repYN() As String

Dim msg, title, YN As String
Dim Style, Response As Integer

msg = "virus attack" & Chr(10) & "close your programe !!!!"       
Style = vbYesNo + vbExclamation + vbDefaultButton2                   
title = "caution !!"                                                
Response = MsgBox(msg, Style, title)

'we can use this list if we are not use the variable :
Response = MsgBox("virus attaque !!!" & Chr(10) & "fermez toute de suite !!!!", vbYesNo + vbExclamation + vbDefaultButton2, "caution !!")

If Response = vbYes Then                            
    YN = "Tu as raison"                             
Else                                                
    YN = "Tu as tort"                               
End If

repouinon = YN

End Function         

    Source: geocities.com/manuhoro