[Resolvido]Uso correto do if em um codigo..

Caros amigos tenho um codigo e estou tendo dificuldades em colocar a execucao
Caso VbYes e caso VbNo...


Private Sub lstPDF_DblClick(Cancel As Integer)
On Error GoTo Err_lstPDF_DblClick
Dim Item, fso
Dim Msg
Msg = MsgBox("Tem certeza que quer excluir este arquivo?" & vbCrLf & _
" Depois de excuidos, não poderão ser restaurados", vbYesNo + vbCritical, "ATENÇÃO")
If vbNo Then
Exit Sub
End If
If vbYes Then
Set fso = CreateObject("Scripting.FileSystemObject")
For Each Item In Me.lstPDF.ItemsSelected
fso.DeleteFile Me.lstPDF.Column(1, Item)
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * from PDF where ID = " & Me.ID & ""
DoCmd.SetWarnings True
Next
Set fso = Nothing
Me.lstPDF.Requery
Msg = MsgBox("Arquivos excluidos com sucesso!", vbOKOnly + vbInformation, "SYSPEN")
Exit Sub

Exit_lstPDF_DblClick:
Exit Sub

Err_lstPDF_DblClick:
MsgBox err.Description
Resume Exit_lstPDF_DblClick
End If

End Suba execucao
Caso sim execute o codigo como descrito..
mas estou tendo dificuldade quanto ao uso do if

Se puderem me ajudar fico grato

Para casos assim, eu prefiro usar o Select Case:

Private Sub lstPDF_DblClick(Cancel As Integer)
On Error GoTo Err_lstPDF_DblClick
Dim Item, fso
Dim Msg
Msg = MsgBox("Tem certeza que quer excluir este arquivo?" & vbCrLf & _
" Depois de excuidos, não poderão ser restaurados", vbYesNo + vbCritical, "ATENÇÃO")
Select Case Msg
Case vbNo
Exit Sub
Case Else
Executar:
Set fso = CreateObject("Scripting.FileSystemObject")
For Each Item In Me.lstPDF.ItemsSelected
fso.DeleteFile Me.lstPDF.Column(1, Item)
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * from PDF where ID = " & Me.ID & ""
DoCmd.SetWarnings True
Next
Set fso = Nothing
Me.lstPDF.Requery
MsgBox "Arquivos excluidos com sucesso!", vbOKOnly + vbInformation, "SYSPEN"
End Select

Exit_lstPDF_DblClick:
Exit Sub

Err_lstPDF_DblClick:
MsgBox err.Description
Resume Exit_lstPDF_DblClick

É isso ai.. resolvido Amigao..
o case realmente e mutio melhor que o if nesses casos

Obrigado

Ops.. Resolvido

Grato