Visual Basic - Duda Sobre Drive En VB6

Hola Amigos Tengo Una Duda O Problema En Una Aplicacion Que Estoy Realizando.

La Aplicacion Guarda Datos En Una Carpeta, Yo Atualmente Lo Tengo Usando De Una Manera Que Funciona Pero Siempre Que Los Disco Locales No Esten Con Algun Nombre

Ejemplo Para Crear Una Carpeta Si El Disco Local Esta Como: Disco Local (D:), Crea La Carpeta Perfecto Pero Si Por Ejemplo El Disco Esta como: DATOS (D:), No Me Crea La Carpeta, Mi Duda Es Como Poder Hacer Para Que Me Pueda Crear La Carpeta Por Mas Que El Disco Es Como DATOS (D:) o Otro Nombre.

Pongo El Codigo Que Estoy Usando Yo Ahora, Ojala Me Puedan Dar Una Mano

Private Sub Drive1_Change()
Select Case GetDriveType(Left(Drive1.Drive, 1) + ":\")
Case DRIVE_REMOVABLE
MsgBox "No Se Puede Crear La Carpeta Tester, Elije Otro Disco Local"
Case DRIVE_FIXED

Case DRIVE_REMOTE
MsgBox "No Se Puede Crear La Carpeta Tester, Elije Otro Disco Local"
Case DRIVE_CDROM
MsgBox "No Se Puede Crear La Carpeta Tester, Elije Otro Disco Local"
Case DRIVE_RAMDISK
MsgBox "No Se Puede Crear La Carpeta Tester, Elije Otro Disco Local"
End Select
Drivetype.Caption = Drive1.Drive & "\" + "Tester"

Bueno Desde Ya Muchas Gracias.

lo unico que se me ocurre es obtener el nombre de la unidad y con un if decir que si no coinciden crear el folder y si coinciden crearlo
el path del nombre de la unidad en el regedit es este:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\{d47a68c5-7527-11de-9946-806d6172696f}
_LabelFromReg
Disco local

HKEY_USERS\S-1-5-21-2025429265-507921405-1708537768-1003\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\{d47a68c5-7527-11de-9946-806d6172696f}
_LabelFromReg
Disco local

Muchas Gracias
Por La Respuesta, Ahora Lo Intento

Muchas Gracias