MessageBox consulta

 Dim result As DialogResult = MessageBox.Show("¿Crear nueva cadena de conexión?", "", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If result = DialogResult.Yes Then
            MessageBox.Show("si")
        ElseIf result = DialogResult.No Then
            MessageBox.Show("no")
        End If


fuente