Writing to a file with a subroutine

[lennyc]

Here's the code, why doesn't it work?

    Public Sub SaveSettings(ByVal Path As String, ByVal Interval As Integer, ByVal Startup As Boolean)
        If File.Exists(Application.StartupPath & "\Settings") Then
            File.Delete(Application.StartupPath & "\Settings")
        End If

        Dim oFile As FileStream
        Dim oWrite As StreamWriter

        oFile = New FileStream(Application.StartupPath & "\Settings", FileMode.Create, FileAccess.Write)
        oWrite = New StreamWriter(oFile)

        oWrite.Write(Path)
        'oWrite.WriteLine(Interval)
        'oWrite.WriteLine(Startup.ToString)

        oFile.Close()
        oFile = Nothing
        oWrite = Nothing
    End Sub