Dim iCanal As Integer, byt1() As ByteiCanal = FreeFileOpen "USB1" For Binary As iCanal...Put #iCanal, ,byt1...Close #iCanal