Problemer med opret fil

Hej

Jeg har en openfile funktion, hvor jeg har hårdkodet en sti, men hvorfor virker min opendialog ikke, så stien ikke skal være hårdkodet for at åbne en fil og få den vist i textbox3???

Har følgende kode:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = OpenFile()

    End Sub

    Private Function CreateNewFile() As String

        Dim oFile As System.IO.File
        Dim oWrite As System.IO.StreamWriter

        oWrite = oFile.CreateText("C:\Programmering\frame2html\" + TextBox2.Text)

        'OpenText()
        oWrite.WriteLine(TextBox3.Text)
        'oWrite.WriteLine()        'Write a blank line to the file
        oWrite.Close()

    End Function

    'Private Function OpenText() As String

    '    Dim oFile As System.IO.File
    '    Dim oRead As System.IO.StreamReader
    '    oRead = oFile.OpenText("C:\Programmering\frame2html\" + TextBox2.Text)

    'End Function

    Private Function OpenFile() As String

        ' Displays an OpenFileDialog and shows the read/only files.
        Dim path As String

        Dim DlgOpenFile As New OpenFileDialog
        DlgOpenFile.ShowReadOnly = True
        Dim Fs As FileStream

        Dim EntireFile As String
        Dim oFile As System.IO.File
        Dim oRead As System.IO.StreamReader

        If DlgOpenFile.ShowDialog() = DialogResult.OK Then

            'Vis indhold fra valgt fil i textbox3
            oRead = oFile.OpenText(TextBox1.Text) '("C:\Programmering\frame2html\Frame1.txt") 'TextBox1.Text)
            EntireFile = oRead.ReadToEnd()
            TextBox3.Text = EntireFile

            'Gem sti i path
            path = DlgOpenFile.FileName

        End If

        Return path

    End Function

    'Private Function ConvertText() As String

    '    Dim s As String
    '    s = s.Replace(",", "").Replace("<", "").Replace(">", "")

    'End Function

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        CreateNewFile()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        'ConvertText()

    End Sub
End Class