텍스트 파일읽기 Line Input , split, replace, ubound

Option Explicit Private Sub Command1_Click()     Dim fn As Integer     Dim strTmp As String         Text1.Text=""         fn = FreeFile     Open "C:\sample.txt" For Input As #fn              'c:\sample.txt 파일을 염     Do While Not EOF(fn)                                      '파일 끝을 만날때 까지 Loop를 돔..         Line Input #fn, strTmp                                 '한줄을 읽어서 strTmp에 넣음..         Text1.Text = Text1.Text & strTmp & vbCrLf    '읽어온 strTmp를 Text1에 넣음..     Loop         Close #fn                                                       '파일을 닫음          Dim a As Integer     Dim arrTmp() As String     strTmp = Text1.Text         strTmp = Replace(strTmp, vbCrLf, " ")    '엔터를 스페이스로 바꿈.. 그래야 스페이스 단위로 자를때.. 같이 잘림     strTmp = Replace(strTmp, "  ", " ")         '스페이스 두개는 하나로 바꿈..     strTmp = Trim(strTmp)                         '문장의 앞뒤에 있는 스페이스는 제거..          arrTmp = Split(strTmp, " ",-1)                    'strTmp를 스페이스 기준으로 잘라서 arrTmp에 넣음..-1은 전체를 반환     For a = 0 To UBound(arrTmp)                'a가 0에서 배열의 크기만큼 루프를 돌면서.. 메시지 보여줌..         MsgBox arrTmp(a)     Next  End Sub   출처:네이버