[Bug 6533] Type mismatch 13 Error shows up in a VB-App.