Constructing a Message Box

The best way I have found to construct a message box in VB. Net goes something like this

Dim msg As String

Dim style = MsgBoxStyle.YesNo

Dim title As String = "Your Message"

msg = "Print Contact letter "

Dim response = MsgBox(msg, style, title)

If response = MsgBoxResult.Yes Then

end if