What is this WMI?
windows management
Set objSoftware = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
you will need to use error handling to create a logfile or similar method of debugging your application, so that you know exactly which line of code is creating the error

if you want anyone here to test your code, zip your project and attach it to a post, too hard to want to create a project with all the controls and references that may be required to make it run, from the code posted above