Skrive til txt-fil

Hej Eksperter

Jeg er ved at oprette en Web Service der skal hente data i en database og skrive dem kommasepereret til en txt-fil.

Mit problem er bare, at jeg ikke kan få skrevet til txt-filen

Kodeeks.

<WebMethod()> Public Function GetFileContent() As String

        Dim fr As StreamReader
        Dim fw As StreamWriter

        Dim FilePath = "c:\tekst.txt"
        Dim strTabelIndhold As String

        strTabelIndhold = "Dato" + ", "
        strTabelIndhold = strTabelIndhold + "Medarbejder" + ", "
        strTabelIndhold = strTabelIndhold + "Type" + ", "
        strTabelIndhold = strTabelIndhold + "Sagsnr" + ", "
        strTabelIndhold = strTabelIndhold + "Omkostningssted" + ", "
        strTabelIndhold = strTabelIndhold + "Operation" + ", "
        strTabelIndhold = strTabelIndhold + "Tid" + ", "
        strTabelIndhold = strTabelIndhold + "Tomt_felt" + ", "
        strTabelIndhold = strTabelIndhold + "Kommentar"

        Try
            fw = New StreamWriter(File.OpenWrite(FilePath))
            fw.Write(strTabelIndhold)
            fw.Close()

            fr = New StreamReader(File.Open(FilePath, FileMode.Open, FileAccess.Read))
            Dim content As String = fr.ReadToEnd()

            Return content
        Catch exp As Exception
            Return Nothing
        Finally
            If Not fr Is Nothing Then
                fr.Close()
            ElseIf Not fw Is Nothing Then
                fw.Close()
            End If
        End Try

    End Function

Hvad kan jeg gøre forkert?

-KAHS