VB读取TXT文件到TEXT1里面，TEXT1后面出现空格

Private Sub Command1_Click()
Open App.Path & "\版本说明.txt" For append As #1
Print #1, Text1.Text
Close #1 '关闭打开的文件
End Sub

Private Sub Form_Load()
Dim x As String
Open App.Path & "\1.txt" For Input As #1
Input #1, x
text1.Text = Input(LOF(1), 1)
Close #1
End Sub

COMMAND1保存后打开程序读取1.TXT到TEXT1 后面出现了空格比如123456后面空了几格，请问怎么不让后面这几格空格显示到TEXT1里面啊？

---

消除从文本文件中读取后的回车符
　　strLine = Replace(strLine, vbTab, "")    将tab符替换成""
    strLine = Replace(strLine, Chr(0), "")    将行结束符替换成""
    strLine = Replace(strlINE, vbCrLf, vbNullString)

---

text1.Text = RTrim(Input(LOF(1), 1))

---

最后的字符不是空格，是回车换行符,1楼的方法就行

---

谢谢````