You can easily do that yourself.

  1. Replace your Command1_Click code with what I posted above.
  2. Go to Project|References and select Microsoft Scripting Runtime.