Error al cerrar un programa

[sitiom]

Lo extraño es que como dije, el si lo cierro desde el menú que he creado (Archivo/Salir) o desde la toolbar, no me da ese problema..
Gracias por tu tiempo ;)
PD: El codigo que tengo al cerrar desde la X es:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) '-- Salir principal --'
Dim eleccion As String
eleccion = MsgBox(" ¿Realmente desea salir? ", vbYesNo + vbQuestion, _
"Aviso")
If (eleccion = vbYes) Then
End
Else
End If
End Sub
Lo raro es que antes funcionaba bien, y si quito el aviso también funciona bien.