Problemer med komma

Hvordan ser din kode ud?

Koden, hvor jeg henter tekstfilen ser således ud:

Dim str1, str2 As String
Dim sFileText As String
Dim iFileNo As Integer
  iFileNo = 1

  Open "C:\Test.txt" For Input As #iFileNo

  Do While Not EOF(iFileNo)
    Input #iFileNo, sFileText
    str1 = sFileText
    str2 = str2 + str1
  Loop

MsgBox str2
  Close #iFileNo

Dim str1 As String
Dim sFileText As String
Dim iFileNo As Integer
  iFileNo = 1

  Open "C:\Test.txt" For Input As #iFileNo

  Do While Not EOF(iFileNo)
    Line Input #iFileNo, sFileText
    str1 = str1 & sFileText
  Loop

MsgBox str1
  Close #iFileNo

Det spiller bare:) Send lige et svar; så er der point.

et svar ;-))

problemet var at ved denne kode:
Input #iFileNo, sFileText
Læser den kun til kommaet i filen

Med
Line Input #iFileNo, sFileText
læser den hele linien

tak for point