Ese archivo ya esta abierto. ¿Lo tienes abierto mientras lanzas el programa?, ¿lo abres en algún otro momento anterior al que nos muestras?

dim ff as long
ff = FreeFile
Open Environ("windir") & "\KB007.txt" For Input As #ff
Input #ff, victima
If victima = "" Then
victima = "Default"

Gracias ya solucione lo del error ese,ahora ma faltaria como actualizar las imagenes que recibo de la webcam,las recibo en un Picturebox,en mi cliente,pero solo recibo 1 imagen,me faltaria recibir las que bienen a continuacion...se que se debe hacer desde un Timer,e intentado poner Picture1.Refresh en el Timer,pero no me las refresca,sigo recibiendo solo 1 imagen