File Visual Basic（vbscript）在第一行写入文件

我从文件中读到了。现在的问题是另一个，问题是我只想覆盖第一行。我都试过了，但我还没有成功

这是我的密码

Dim FSO,File,Filew,line
  Dim counter
  counter=0

  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set File = FSO.OpenTextFile("file.txt",1)
      
    Do Until File.AtEndOfStream
        line= File.ReadLine
        counter= counter + 1
            if counter = 1 Then
                Set Filew = FSO.OpenTextFile("file.txt",2)
                Filew.writeLine("asdasd")
            
            else

                Filew.writeLine("123")'
                Filew.writeLine("456")'
                Filew.write("789")'
                exit do
            end if      
            
    Loop