cpnuslta con un string

[nana_01]

hola

tengo la siguiente pregunta

tengo un estring de estas caracteristicas (por si las dudas es un string dinamico, no siempre tiene los mismos valores)

lista = ROL, DV_ROL, RAZON_SOCIAL, WEB, CATEGORÍA, ACTIVIDAD_PRINCIPAL, SELECCIÓN, CIIU3, TELEFONO, DIRECCIÓN, REPRESENTANTE_LEGAL

y kiero trasformar el string de esta manera

lista = 'ROL', 'DV_ROL', 'RAZON_SOCIAL', 'WEB', 'CATEGORÍA', 'ACTIVIDAD_PRINCIPAL', 'SELECCIÓN', 'CIIU3', 'TELEFONO', 'DIRECCIÓN', 'REPRESENTANTE_LEGAL'

lo necesito de esta manera por ke son los valores de un insert into a una tabla determinada

como esto

Sql = "INSERT INTO dbo.BD_NOMBRE_DIRECTO_AUX ( " & listNom & " ) VALUES ( '" & lista & "' )"

listNom tambien es un string pero con la misma cantidad de elementos ke tiene lista

EJ:

si lista tiene tres elementos

lista = ROL, DV_ROL, CATEGORIA

entonces listNom va hacer asi

listNom = NOMBRE1, NOMBRE2, NOMBRE3

por si les interesa los valores lista los tomo directamente de un listBox multiple

espero ke me alla hecho entender

gracias de antemano