TextBox에서 파일 열기

파일을 열어 내용을 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