Making my form look good

[Joacim Andersson]

What you are trying to do is to open a folder for Input instead of the selected file.

Dim sFileName As String
sFileName = File1.Path
If Right$(sFileName, 1) <> "\" Then
    sFileName = sFileName & "\"
End If
sFileName = sFileName & File1.FileName
Open sFileName For Input As #1
    txtWriteTab.Text = Input(LOF(1), 1)
Close #1