VBA - Mettre une valeur dans une MSG BOX (correction)

Sub test()
rep = MsgBox("Do you want to know the price of the call/put option?" _
& vbCrLf & "(Value of cell B40)", vbYesNo + vbQuestion + vbDefaultButton1, _
"This message box will deal with call/put : ")
If rep = vbYes Then
MsgBox Range("B40").Value
Else
MsgBox ("tant pis !")
End If
End Sub

Select Case MsgBox("Do you want to know the price of the call/put option?" _
& vbCrLf & "valeur B40",vbYesNo Or vbQuestion Or vbDefaultButton1, _
"This message box will deal with call/put : ")
    Case vbYes
Call MsgBox("Valeur de cellule B40 : " & [B40], vbInformation Or vbDefaultButton1, "The price of the call/put is")
Case vbNo
End Select

Sub test()
Dim msg As Integer
msg = MsgBox("Do you want to know the price of the call/put option?" & vbCrLf & [B40], vbYesNo Or vbQuestion Or vbDefaultButton1, "This message box will deal with call/put : ")
Select Case msg
Case vbYes
MsgBox [B40], vbInformation Or vbDefaultButton1, "The price of the call/put is"
Case vbNo
MsgBox "test"
End Select
End Sub