d If
   Exit Sub
ErrorHandler:
   MsgBox Err.Description, vbExclamation
   Exit Sub
End Sub
Private Sub killFileIfExists(ByVal sFile As String)
Dim sDir As String
   On Error Resume Next
   sDir = Dir(sFile)
   If Len(sDir) &gt; 0 Then
      On Error GoTo 0
      Kill sDir
   End If
End Sub

Private Sub mnuHelp_Click(Index As Integer)
   Select Case Index
   Case 0
      ShellExecute Me.hWnd, "open", "http://vbaccelerator.com/", "", "",
       SW_SHOWNORMAL
   Case 2
      frmAbout.Show vbModal, Me
   End S