I managed to get what I wanted doing this.
line = Replace(line, ";", "")
writer.Write(Trim(Mid(line, 9)))
Please correct me if theres a better way of doing this.
Dim sLine As String = ""
sLine = String.Format("j1[10] = {0}EXTRACTME{0};", Microsoft.VisualBasic.ControlChars.Quote)
sLine = sLine.Remove(0, sLine.IndexOf(Microsoft.VisualBasic.ControlChars.Quote) + 1) 'strip the first part
sLine = sLine.Remove(sLine.IndexOf(Microsoft.VisualBasic.ControlChars.Quote)) 'strip the last part
MessageBox.Show(sLine) 'show what is left
Dim sLine As String = ""
sLine = String.Format("j1[10] = {0}EXTRACTME{0};", Microsoft.VisualBasic.ControlChars.Quote)
Dim sPartsOfLine() As String = sLine.Split(Microsoft.VisualBasic.ControlChars.Quote) 'break the line into three parts
MessageBox.Show(sPartsOfLine(1)) 'you want the middle part
Dim input As String = "j1[1] = ""EXTRACTME"";"
Dim pattern As String = """(?<quote>.*?)"""
Dim quoted As String = Regex.Match(input, pattern).Groups("quote").Value