求助，大家帮我看一下这段有缺陷的代码吧。

Question

For  i  =  CDbl(txtStart.Text)  To  CDbl(txtEnd.Text)  
         '**********下载记录写入VocFile.log文件*********  
                 Close  #1  
                 Open  App.Path  &  "\out.txt"  For  Append  As  #1  
                 Write  #1,  txtCmd.Text  &  "      "  &  i  &  "."  &  txtSour.Text  &  "      "  &  i  &  "."  &  txtEnd.Text  
                   
                 SendMSG  txtCmd.Text  &  "      "  &  i  &  "."  &  txtSour.Text  &  "      "  &  i  &  "."  &  txtEnd.Text  
                 Close  #1  
           '**********写入VocFile.log完成*****************  
       Next  
 
 
问题1:写入的out.txt中有引号，如何去掉  
问题2：特别耗资源，如何同时进行别的操作，程序就会未响应 谢谢

Answer 1

For i = CDbl(txtStart.Text) To CDbl(txtEnd.Text)
  '**********下载记录写入VocFile.log文件*********
    Close #1
    Open App.Path & "\out.txt" For Append As #1
    Write #1, txtCmd.Text & "      " & i & "." & txtSour.Text & "      " & i & "." & txtEnd.Text
      
    SendMSG txtCmd.Text & "      " & i & "." & txtSour.Text & "      " & i & "." & txtEnd.Text
    Close #1
    '**********写入VocFile.log完成*****************
    
    DoEvents '加上这句就可以空闲CPU时间.
Next

Answer 2

'引号是什么地方录入的,在存之前你可以替换掉Write #1, Replace(txtCmd.Text & "      " & i & "." & txtSour.Text & "      " & i & "." & txtEnd.Text, "'", "")

Answer 3

在循环中加上这句
DoEvents '加上这句就可以空闲CPU时间.
就可以了.

Answer 4

Option Explicit
Open App.Path & "\out.txt" For Append As #1
For i = CDbl(txtStart.Text) To CDbl(txtEnd.Text)
  '**********下载记录写入VocFile.log文件*********
          Write #1, txtCmd.Text & "      " & i & "." & txtSour.Text & "      " & i & "." & txtEnd.Text
          SendMSG txtCmd.Text & "      " & i & "." & txtSour.Text & "      " & i & "." & txtEnd.Text
    '**********写入VocFile.log完成*****************
Next
Close #1