error dice no coinciden los tipos

[pedraosone]

hola a todos nuevamente me dirijo a los que mas saben a pedir ayuda para un programa que me quiero crear
veran:
encontre en la web este codigo:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
       
    'Propiedades para el control inet ( AccessType y URL )
    With Inet1
        .AccessType = icUseDefault
        'Indicamos el url del archivo
        .URL = Trim(Text1.Text)
        'Indicamos que vamos a descargar o recuperar un archivo desde una url
        .Execute , "GET"
    End With
End Sub
 
Private Sub Form_Load()
 
    Command1.Caption = " Descargar "
    Me.Caption = " Ejemplo del control Inet para " & _
                 "descargar un fichero con progreso"
 
End Sub
 
 
Private Sub Inet1_StateChanged(ByVal State As Integer)
 
On Error GoTo Err_Sub
 
    Dim tempArray() As Byte ' Un array para grabar los datos en un archivo
    Dim bDone As Boolean
    'Para el tamaño del archivo en bytes que se usa para el array
    Dim filesize As Long
    ' Acá almacenamos los datos
    Dim vtData As Variant
 
    Select Case State
 
        Case icResponseCompleted
            bDone = False
            'Para saber el tamaño del fichero en bytes
            filesize = Inet1.GetHeader("Content-length")
            'Creamos y abrimos un nuevo archivo en modo binario
            Open Text2.Text For Binary As #1
           
            ' Leemos de a 1 Kbytes. El segundo parámetro indica _
            el tipo de fichero. Tipo texto o tipo Binario, en este caso binario
            vtData = Inet1.GetChunk(1024, icByteArray)
 
            DoEvents
           
            'Si el tamaño del fichero es 0 ponemos bDone en _
            True para que no entre en el bucle
            If Len(vtData) = 0 Then
                bDone = True
            End If
               
            With ProgressBar1
                .Value = 0
                .Max = filesize
            End With
               
            Do While Not bDone
                'Almacenamos en un array el contenido del archivo que se va leyendo
                tempArray = vtData
                'Escribimos los datos en el archivo
                Put #1, , tempArray
                'Leemos  datos de a 1 kb (1024 bytes)
                vtData = Inet1.GetChunk(1024, icByteArray)
           
                DoEvents
                'Aumentamos la barra de progreso
                ProgressBar1.Value = ProgressBar1.Value + (Len(vtData) * 2)
               
                If Len(vtData) = 0 Then
                    bDone = True
                End If
            Loop
 
        Close #1
       
        MsgBox "Archivo descargado correctamente", vbInformation
        ProgressBar1.Value = 0
    End Select
 
Exit Sub
 
Err_Sub:
    MsgBox Err.Description, vbCritical
    On Error Resume Next
    Inet1.Cancel
    ProgressBar1.Value = 0
End Sub


pues para probarlo le pongo en el text1 la url de descarga y en el text2 el destino por ejemplo c:\
y cuando lo ruedo me da el error no coinciden los tipos
probe poniendo en el text2 c:\fichero.text y el error es el mismo
alguien puede ayudarme
muchas gracias  por anticipado

[under!!!]

ya agregaste todos los controles???????????????????????????????

[pedraosone]

Si te refieres a si hice el form con un comand button, dos textbox,un control inet,y una progress bar. si si lo hice
gracias

[pedraosone]

ya solucione el problema
era culpa del link de descarga
muchas gracias
doy el tema por terminado