cargar configuración

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim cfg As New List(Of List(Of List(Of String)))

        For i As Integer = 0 To 2
            cfg.Add(New List(Of List(Of String)))
        Next


        cfg.Add(New List(Of List(Of String))) ' empresa 1
        cfg.Add(New List(Of List(Of String))) ' empresa 2



        Select Case 1

        End Select



        cfg(0).Add(New List(Of String)) ' 33
        cfg(0).Add(New List(Of String)) ' 34
        cfg(0).Add(New List(Of String)) ' 39
        cfg(0).Add(New List(Of String)) ' 41
        cfg(0).Add(New List(Of String)) ' 43
        cfg(0).Add(New List(Of String)) ' 46
        cfg(0).Add(New List(Of String)) ' 52
        cfg(0).Add(New List(Of String)) ' 56
        cfg(0).Add(New List(Of String)) ' 61
        cfg(0).Add(New List(Of String)) ' 110
        cfg(0).Add(New List(Of String)) ' 111
        cfg(0).Add(New List(Of String)) ' 112



        cfg(1).Add(New List(Of String))
        cfg(1).Add(New List(Of String))
        cfg(1).Add(New List(Of String))
        'cfg(0).Add(New List(Of List(Of String))

        cfg(0)(0).Add("1245-3")
        cfg(0)(0).Add("RAZON SOCIAL")
        cfg(0)(0).Add("DIRECCION")

        cfg(0)(1).Add("<TipoDTE>33</TipoDTE>")
        cfg(0)(2).Add("<TipoDTE>61</TipoDTE>")


        cfg(1)(0).Add("3456568-K")
        cfg(1)(0).Add("RAZON SOCIAL")
        cfg(1)(0).Add("DIRECCION")


        cfg(1)(1).Add("<TipoDTE>33</TipoDTE>")
        cfg(1)(2).Add("<TipoDTE>61</TipoDTE>")



        'For Each elem As String In cfg
        '    MessageBox.Show(elem)
        'Next


        'MessageBox.Show(cfg(0)(0)(0))

        For i As Integer = 0 To cfg.Count - 1

            If cfg(i)(0)(0) = "0-3" Then
                MessageBox.Show("sasdad")
            End If


            MessageBox.Show(cfg(i)(0)(0))
        Next


        Dim cfg2 As List(Of List(Of List(Of String))) = cfg


        Try
            cfg.Clear()
        Catch ex As Exception

        End Try

        Dim p As String = ""

    End Sub