我在文本框里输入了数据，有的行是在大写的情况下输入的，有的是在小写的情况下输入的，可是当我读取这些数据时发现出错，这是为什么，请教高手
应大家要求，我把部分代码发上来，因为太长被限制了。Private Sub Command1_Click()
DS = InputBox("请输入点数")
CommonDialog1.ShowOpen
YSSJ = CommonDialog1.FileName
Label1.Caption = YSSJ
ReDim YSJ(1 To 3 * DS) As String
Open YSSJ For Input As #1
For I = 1 To 3 * DS
Input #1, YSJ(I)
Next I
Close #1
End Sub请各位高手帮我看看哈
