load textfil til textbox

Private Sub CmdOpenLog_Click()
Dim FileLager As String
Dim FreeFileNum As Integer
Dim FileSize
FreeFileNum = FreeFile
CommonOpenLog.ShowOpen
On Error GoTo AbenCancel
FileSize = FileLen(CommonOpenLog.FileName)
FileLager = String(fileSize, \" \")
CommonOpenLog.FileName
On Error GoTo AbenCancel
Open CommonOpenLog.FileName For Binary As FreeFileNum
Get #1, 1, Filelager
Close #1
CHHvisLog.Caption = \"aktiv Logfil: \" & CommonOpenLog.FileName
TxtLog.Text = FileLager
GoTo Slut
AbenCancel:
Svar = MsgBox(\"Åbning af Log-Fil afbrudt af Bruger\")
GoTo Slut
fejl:
Svar = MsgBox(\"Der opstod en fejl under udførelsen CmdOpenLog\" & Chr(13) & \"Se venligst LogFilen DBUI.log\", vbOKOnly + vbCritical, \"Kritisk Fejl\")
Slut:
End Sub

Hvis der er noget du ikke forstår, Så Spørg.
V.H Kisbye