Getting strings [solved]

Public Function Split(ByVal [String] As String, Optional ByVal DontAccountQuotes As Boolean = False, Optional ByVal Separator As String = " ") As String()
            If DontAccountQuotes Then
                Return [String].Split(Separator)
            Else
                Dim words As String() = [String].Split(Separator)
                Dim newwords As New ArrayList
                For i As Integer = 0 To words.Length - 1
                    If words(i).StartsWith("""") Then
                        Dim linked As New ArrayList
                        For y As Integer = i To words.Length - 1
                            If words(y).EndsWith("""") Then
                                linked.Add(words(y).Substring(0, words(y).Length - 1))
                                i = y
                                Exit For
                            Else
                                If words(y).StartsWith("""") Then words(y) = words(y).Substring(1)
                                linked.Add(words(y))
                            End If
                        Next
                        Dim tmp(linked.Count - 1) As String
                        linked.CopyTo(tmp)
                        If Not linked.Count = 0 Then newwords.Add(String.Join(Separator, tmp))
                        linked.Clear()
                        Erase tmp
                    Else
                        newwords.Add(words(i))
                    End If
                Next
                Dim tmp2(newwords.Count - 1) As String
                newwords.CopyTo(tmp2)
                newwords.Clear()
                Return tmp2
            End If
        End Function