Module Module1

    Sub Main()
        Dim confString As String = "a=\"1\"b=\"2\"c=\"3\" "
        Console.WriteLine(confString)
        Dim a() As String = confString.Split("=")
        Console.WriteLine(a)
    End Sub

End Module