TextBox에 파일 열기

질문자 인사 너무 감사합니다..

Dim Temp as string
dialog.ShowOpenfilenum = FreeFileOpen dialog.filename For Input As filenumdo while not eof(ff)line input #filenum, Temp
Text.Text = Text.Text & Temp & vbCrLfloopClose filenum