Private Sub TreeView1_NodeMouseClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseClick
        If (e.Node.Name) = "Nodo0" Then RichTextBox1.Text = "Selecione alguna opción" Else
        If (e.Node.Name) = "Nodo1" Then RichTextBox1.Text = "(Articulo)Alfombras orientales-Alfombras orientales" Else
            If (e.Node.Name) = "Nodo2" Then RichTextBox1.Text = "(Articulo)Moquetas-Moquetas" Else
            If (e.Node.Name) = "Nodo3" Then RichTextBox1.Text = "(Articulo)Alfombras de lana-Alfombras de lana" Else
            If (e.Node.Name) = "Nodo4" Then RichTextBox1.Text = "(Articulo)Alfombras de motion-Alfombras de alodón" Else
            If (e.Node.Name) = "Nodo5" Then RichTextBox1.Text = "(Articulo)Alfombras de sinteticas-Alfombras de sinteticas" Else
            If (e.Node.Name) = "Nodo6" Then RichTextBox1.Text = "(Articulo)Alfombras trenzadas-Alfomhras trenzadas" Else
            If (e.Node.Name) = "Nodo7" Then RichTextBox1.Text = "(Articulo)Alfombras de baño-Alfombrillas de baño" Else
            If (e.Node.Name) = "Nodo8" Then RichTextBox1.Text = "Articulo)Felpudos-Felpudos" Else
            If (e.Node.Name) = "Nodo9" Then RichTextBox1.Text = "(Articulo)Esteras decorativas_Esteras decorativas" Else
            If (e.Node.Name) = "Nodo10" Then RichTextBox1.Text = "(Articulo)Esteras anti fatia-Esteras anti fatia" Else
            If (e.Node.Name) = "Nodo11" Then RichTextBox1.Text = "(Articulo))Esteras de vinilo o caucho-Esteras de vinilo o caucho " Else
            If (e.Node.Name) = "Nodo12" Then RichTextBox1.Text = "(Articulo))Estera de Silla-Estera de Silla " Else
            If (e.Node.Name) = "Nodo13" Then RichTextBox1.Text = "(Artículo)Protector de alfombras-Protector de alfombras " Else
            If (e.Node.Name) = "Nodo14" Then RichTextBox1.Text = "(Clase)52101500-Alfomhras y felpudos" Else
            If (e.Node.Name) = "Nodo15" Then RichTextBox1.Text = "(Artículo)Colchas-Colchas " Else
            If (e.Node.Name) = "Nodo16" Then RichTextBox1.Text = "(Artículo)Edredones-Edredones" Else
            If (e.Node.Name) = "Nodo17" Then RichTextBox1.Text = "(Artículo)Fundas de edredones-Fundas de edredones " Else
            If (e.Node.Name) = "Nodo18" Then RichTextBox1.Text = "(Artículo)Fundas de colchón-Fundas de colchón " Else
            If (e.Node.Name) = "Nodo19" Then RichTextBox1.Text = "(Artículo)Almohadas-Almohadas " Else
            If (e.Node.Name) = "Nodo20" Then RichTextBox1.Text = "(Artículo)Rellenos para colchón-Rellenos para colchón " Else
            If (e.Node.Name) = "Nodo21" Then RichTextBox1.Text = "(Artículo)Camas de plumas-Camas de plumas " Else
            If (e.Node.Name) = "Nodo22" Then RichTextBox1.Text = "(Artículo)Mantas, frazadas-Mantas, frazadas" Else
            If (e.Node.Name) = "Nodo23" Then RichTextBox1.Text = "(Artículo)Sábanas-Sábanas " Else
            If (e.Node.Name) = "Nodo24" Then RichTextBox1.Text = "(Artículo)Golas o faldas guardapolvo-Golas o faldas guardapolvo" Else
            If (e.Node.Name) = "Nodo25" Then RichTextBox1.Text = "(Artículo)Colchas-Colchas" Else
            If (e.Node.Name) = "Nodo26" Then RichTextBox1.Text = "Artículo)Fundas de almohada-Fundas de almohada " Else
            If (e.Node.Name) = "Nodo27" Then RichTextBox1.Text = "Artículo)Cobertores, cubiertas de cama-Cobertores, cubiertas de cama" Else
            If (e.Node.Name) = "Nodo28" Then RichTextBox1.Text = "(Clase)52121500-Ropa de cama " Else
            If (e.Node.Name) = "Nodo29" Then RichTextBox1.Text = "(Artículo)Limpiones, paños de cocina-Limpiones, paños de cocina " Else
            If (e.Node.Name) = "Nodo30" Then RichTextBox1.Text = "(Artículo)Servilletas-Servilletas" Else

    End Sub