Como activar el botón de no en vb 6.0

por favor si alguien me puede ayudar a poder activar el botón de no en vb 6.0, gracias

Private Sub Command8_Click()
Dim respuesta As String
Data1.Recordset.Delete
respuesta = MsgBox("Desea eliminar el registro", vbCritical + vbYesNo + vbDefaultButton2, "Eliminar") = vbNo
respuesta = 0
Text1 = " "
Text2 = " "
Text3 = " "
Text4 = " "
Text5 = " "
Text6 = " "