在Write输出的文本中出现莫名的""号

Question

函数功能,在 cmdInput按钮中读入in.txt中的字符串;在cmdConv转换成大写时,显示到Text1中;在cmdSave输出到out.txt中.问题:我在in.txt中输入aaaaaaaaaa;但是在out.txt中存盘的是"AAAAAAAAAA"
怎么多了双引号?怎么改呢?源码:
Option Explicit
Dim mstrInput As String
Dim mstrOutput As StringPrivate Sub cmdConv_Click()
mstrOutput = UCase(mstrInput)
Text1.Text = mstrOutput
End SubPrivate Sub cmdInput_Click()
    Open App.Path & "\in.txt" For Input As #1
    Input #1, mstrInput
    Close #1
    Text1.Text = mstrInput
End SubPrivate Sub cmdSave_Click()
Open App.Path & "\out.txt" For Output As #1
Write #1, mstrOutput
Close #1
End Sub

Answer 1

使用  Print 输出
  
--------------------------------------------------------------
程序，犹如人生。