How to run windows installer cleanup when installer fails

1. Download de Windows Installer Cleanup Utility (msicuu2.exe)
2. Klik op Start, Uitvoeren. typ %temp% en druk op ENTER. Dit opent de tijdelijke map van uw gebruikersprofiel.
3. Dubbelklik op het bestand (msicuu2.exe)dat u eerder hebt gedownload in stap 1.
4. uitvoeren van msicuu2.exe zou automatisch het setup pakket moeten uitpakken naar de map %temp%, onder de map met de naam IXP000.TMP.
5. Kopieer de map IXP000.TMP op uw bureaublad.
Opmerking: Negeer (en verlaat) alle Windows Installer vragen of fouten die kunnen worden weergegeven op dit moment. Je hebt al bestanden die u nodig hebt, om de Windows Installer Cleanup Utility handmatig te laten lopen.
6. Open de map IXP000.TMP op uw bureaublad.
7. Als u een Windows 9x-systeem (Windows 95/98/Me)hebt, verander de naam van het bestand MsiZapA.exe in Msizap.exe. Als u Windows 2000/XP/2003 hebt, verander de naam van het bestand MsiZapU.exe in Msizap.exe
8. Dubbelklik op het bestand Msicuu.exe, en ziedaar, de Windows Installer Cleanup Utility begint te lopen.

Get Numeric Value from String

Function Number(ByVal CurrString As String)
Dim temp As String

temp = Left(CurrString, 1)
Do While Not IsNumeric(temp)
If Len(CurrString) <= 1 Then
Exit Function
Else
CurrString = Mid(CurrString, 2)
temp = Left(CurrString, 1)
End If
Loop
Number = Val(CurrString)
End Function