Option Explicit
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, _
             ByVal lpBuffer As String) As Long

Private Sub Form_Load()
    Dim AllDrives As String, Res As Long
   
    ' Se rellena el Buffer con espacios en blanco
    AllDrives = Space$(250)
    
    ' Se recoge el string con la función
    Res = GetLogicalDriveStrings(Len(AllDrives), AllDrives)
    
    ' Res nos informa de la longitud del buffer insertado
    AllDrives = Left$(AllDrives, Res)

    ' Se muestra el resultado en la pantalla de Depuración
    Debug.Print AllDrives    
End Sub