result = MsgBox ("lol, ceci est un test", vbInformation, "Test.exe")

Select Case result
Case vbOk



End Select