Log file behaving oddly

Question

I made some changes to our log file since it was giving errors about being in use. Now it's chopping up the log file or not logging at all and its not usable.

This is what the log looks like:

vice(IndexInformation indexFileInfo, StringBuilder[] Keys) in D:\WORK\SOURCEVS2005\DLLs\DataLayer\DataLayer\DataHandler\DataHandler.vb:line 2646 at SSS.DataLayer.DataHandler.ReadRecordsIntoDataTable(IndexInformation& indexFileInfo, StringBuilder[]& Keys) in D:\WORK\SOURCEVS2005\DLLs\DataLayer\DataLayer\DataHandler\DataHandler.vb:line 2538

Inner Exception: Source: System.ServiceModel TargetSite: System.ServiceModel.Channels.HttpChannelUtilities.ProcessGetResponseWebException Message: The HTTP request to 'http://localhost:899/Design_Time_Addresses/PropaneService/DataService/' has exceeded the allotted timeout of 00:01:00. The time allotted to this operation may have been a portion of a longer timeout. StackTrace: at System.ServiceModel.Channels.HttpChannelUtilities.ProcessGetResponseWebException(WebException webException, HttpWebRequest request, HttpAbortReason abortReason) at System.ServiceModel.Channels.HttpChannelFactory.HttpRequestChannel.HttpChannelRequest.WaitForReply(TimeSpan timeout) at System.ServiceModel.Channels.RequestChannel.Request(Message message, TimeSpan timeout)

---

Answered: Not Applicable

---

t, Int32 size)

Answered: Not Applicable

---

As you can see, it's chopping it up...

This is my log file routine:

 Dim fs As New FileStream(Configuration.ApplicationSharedPath & filename, FileMode.Open, FileAccess.ReadWrite, FileShare.ReadWrite)
  Using f As New IO.StreamWriter(fs)
    f.WriteLine(Asterisks)
    f.WriteLine("Workstation: " & Configuration.WorkstationId & Strings.Space(5) & "Company Id: " & _
                Configuration.CompanyID & Strings.Space(5) & "User: " & Configuration.UserId & Strings.Space(5) & _
                "VerDate: " & Configuration.VersionDate)
    f.WriteLine(Dashes)
    f.WriteLine("Source: " & sSource)
    f.WriteLine("Date/Time: " & CStr(Now)) '& vbCrLf)
    f.WriteLine(Dashes)
    f.WriteLine("Message: " & sMessage)
    f.WriteLine(Dashes)
    f.WriteLine("Answered: " & sAnswer)
    f.WriteLine(Asterisks)
    f.WriteLine(vbCrLf)
    'f.Flush()
    'f.Close()
    'f.Dispose()
  End Using

Anyone have any suggestions?