Visual Basic - Manejo de ficheros

Por favor, ¿alguien sabe dónde está el problema en este código?

Type t_amigos
nombre As String * 80
nif As String * 30
direccion As String * 80
provincia As String * 80
codigoPostal As String * 30
telefono As String * 30
fax As String * 30
End Type
-----------------------------------------------------------

Dim amigo As t_amigos
...
...Open "C:\fichero.jcg" For Random As #canal Len = Len(amigo)
---------------------------------------------------------------------------------------------

Yo creo que falla en la instrucción Len = Len(amigo), pero no se el motivo. Espero que alguien me ayude. Gracias de antemano.

Te pregunto : ¿canal es una variable numérica?.- Si es así deberás dimensionarla y después asignarle el valor que le corredponde.

Espero que de algo te sirva mi pregunta e indicación.
Un saludo.

En realidad el código es este, pero sigo sin encontrar el error. ¡Me estoy volviendo loco!
Si lo encontrais os agradecería enormemente que me lo comuniqueis. Muchas gracias.

Type t_amigos
nombre As String * 80
nif As String * 30
direccion As String * 80
provincia As String * 80
codigoPostal As String * 30
telefono As String * 30
fax As String * 30
End Type
-----------------------------------------------------------

Dim amigo As t_amigos
Dim canal as long
...
canal=FreeFile
...Open "C:\fichero.jcg" For Random As #canal Len = Len(amigo)
---------------------------------------------------------------------------------------------