Problemas con Script Visua Basic 6 para cambiar inicio de firefox

[lordfelpa]

Antes que nada si aqui no va el tema porfavor pido mil disculpas y lo muevan al tema o seccion que corresponde estube buscando visual basic 6 pero no lo encontre y este es el que mas se acerca.

Bueno encontre el siguiene codigo script en la red y tenia algunos fallos y a fin de cuentas logre modificarlo y que se compilara pero despues de probarlo me sale un error que dice run-time error '13' type mismatch.

aqui dejo el codigo:

Código:

Rem *********************************************
Rem *   By JavCasta 2.010 - http://javcasta.com *
Rem *********************************************
 
Rem Script en vbs para definir página de inicio en Firefox
Rem probado en windows XP SP3 con Mozilla Firefox 3.6.6
Private Sub Form_Load()

aux = InputBox("http://www.google.es")
If (aux = "") Then
    aux = "http://www.google.es"
End If
inicio0 = "user_pref(" & Chr(34) & "browser.startup.homepage" & Chr(34) & ","
 
inicio1 = inicio0 & Chr(34) & aux & Chr(34) & ");"
 
Rem msgbox inicio1
 
Rem obtenemos variable de entorno %appdata%
Set oShell = CreateObject("WScript.Shell")
vappdata = oShell.ExpandEnvironmentStrings("%APPDATA%")
 
Rem directorio de perfiles de firefox
vconffirefox = vappdata & "\Mozilla\Firefox\Profiles"
 
Rem si existe dir de perfiles de firefox
Set objFSO = CreateObject("Scripting.FileSystemObject")
Rem Set objFSO2 = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(vconffirefox) Then
    Set objFolder = objFSO.GetFolder(vconffirefox)
    Rem msgbox "Si existe " & vconffirefox
Else
    Wscript.Echo "Carpeta de perfiles de firefox no existe."
End If
Rem subdirectorios, tantos como perfiles
Set vSubdir = objFolder.SubFolders
Rem recorremos todos los perfiles (subcarpetas xxxx.default)
 
  For Each f1 In vSubdir
       Rem prefs.js abrimos para lectura
       Set objTextFile = objFSO.OpenTextFile(f1 & "\prefs.js", 1)
       Set objTextFile2 = objFSO.CreateTextFile(f1 & "\prefstemp.js")
 
       Do While Not objTextFile.AtEndOfStream
        linea = objTextFile.ReadLine
 
        If (Left(linea, 37) <> inicio0) Then
            objTextFile2.WriteLine linea
 
        Else
            objTextFile2.WriteLine inicio1
            MsgBox inicio1
        End If
       Loop
       Rem End If 'if1
       objTextFile2.Close
       objTextFile.Close
       Set objFileCopy = objFSO.GetFile(f1 & "\prefstemp.js")
       objFileCopy.Delete (f1 & "\prefs.js")
       objFileCopy.Move (f1 & "\prefs.js")
   Next
   End Sub

espero me puedan echar una mano si pueden hacer esta modificacion para que funcione correctamente de antemano gracias.