Visual Basic - Separar String

Buenas noches a todos!!
Estoy programando en vb 6.0 con sql 2000. Tengo en una tabla un campo que contiene ésta cadena :
"Nombre", "DNI"

Necesito mostrar esta cadena dividida en dos labels. Cuando selecciono un registro de un datagrid en los labels debería mostrarse dicha cadena de ésta manera:

label1 Nombre
label2 DNI

Ya que luego mostraré en dos text box un nombre y un dni

Espero me puedan ayudar Gracias!

Usa Instr.
Nombre=mid(Variable,1,InStr(Variable,","))
Dni=mid(Variable,Instr(Variable,",")+1,len(variable)-Instr(variable,","))

En lo anterior hay un error
Nombre=mid(Variable,1,InStr(Variable,",")-1)

Gracias Pedro lo voy a probar. Cualquier cosa vuelvo a escribir

Pedro MUCHAS GRACIAS!! me funcionó de diez.