Please help on IOEXCEPTION Error

See more:

VB

IO

Please i am trying to write the result of a loop in my code into a text file that on the harddisk. I am getting an IOEXECPTION error that the file you are trying to access is currently used by another process.

Sub Main()
Using myreader As StreamReader = New StreamReader("C:\Users\Jamiebones\Desktop\learning_application\learning_application\Phone Number.txt")

While Not (myreader.EndOfStream)


Dim line As String = myreader.ReadLine
Dim strBuilder As New Text.StringBuilder
If String.IsNullOrEmpty(line) = False AndAlso line.Length > 1 Then
strBuilder.Append("234")
strBuilder.Append(line.Remove(0, 1))
End If
Console.WriteLine(strBuilder.ToString)

If strBuilder.Length > 0 = True Then
Dim writer As StreamWriter = New StreamWriter("c:/phone numbers.txt")
writer.Write(strBuilder.ToString)

End If
writer.closestream()

End While
Console.ReadLine()

End Using
The line of code that throws this error is "writer.Write(strBuilder.ToString)"
Please i need help on this.Thanks