Modifying the vbYesNo buttons

Sub ButtonAlternative()
Const SheetID As String = "_Buttonz"
Dim btnDlg As DialogSheet
 
Application.ScreenUpdating = False
On Error Resume Next
Application.DisplayAlerts = False
ActiveWorkbook.DialogSheets(SheetID).Delete
Application.DisplayAlerts = True
Err.Clear
 
Set btnDlg = ActiveWorkbook.DialogSheets.Add
 
With btnDlg
.Name = SheetID
.Visible = xlSheetHidden
 
With .DialogFrame
.Height = 70
.Width = 280
.Caption = "Please confirm..."
End With
 
With .Buttons("Button 2")
.BringToFront
.Width = 60
.Caption = "Yes, please"
End With
 
With .Buttons("Button 3")
.BringToFront
.Width = 60
.Caption = "No, thanks"
End With
 
.Labels.Add 100, 50, 100, 100
.Labels(1).Caption = "Are you sure you want to move to the next sheet?"
Application.ScreenUpdating = True
 
If .Show = True Then
MsgBox "Your ''Yes, please'' code goes here", 64, "Yes was clicked"
Else
MsgBox "Your ''No, thanks'' code goes here", 64, "No was clicked"
End If
 
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
 
End With
End Sub