CustomMessageBox C# code converted to VB .NET

Dim messageBox As New CustomMessageBox() With { _
    Key .Caption = "Do you like this sample?", _
    Key .Message = "There are tons of things you can do using custom message boxes. To learn more, be sure to check out the source code at CodePlex.", _
    Key .LeftButtonContent = "yes", _
    Key .RightButtonContent = "no" _
}

messageBox.Dismissed += Function(s1, e1)
Select Case e1.Result
    Case CustomMessageBoxResult.LeftButton
        ' Do something.
        Exit Select
    Case CustomMessageBoxResult.RightButton
        ' Do something.
        Exit Select
    Case CustomMessageBoxResult.None
        ' Do something.
        Exit Select
    Case Else
        Exit Select
End Select

End Function

messageBox.Show()