Use Line Input command

VB Code:
  1. Line Input #VarFich, StrOldText