numDevs = waveOutGetNumDevs();
        do {
          PCaselessString str;
          if (GetWaveOutDeviceName(id, str) && str == device.Mid(offset)) {
            deviceName = str;
            break;
          }
        } while (++id < numDevs);

        numDevs = waveOutGetNumDevs
        Do
          If (GetWaveOutDeviceName(id, str)) And (str = device) Then
            devicename = str
            Exit Do
          End If
          id = id + 1
        Loop While (id < numDevs)

  If (GetWaveOutDeviceName(id, str)) And (str = device) Then

Private Function GetWaveOutDeviceName(id As Long, name As String) As Boolean

        numDevs = waveOutGetNumDevs
        Do
          If GetWaveOutDeviceName(id, str) Then
            If (str = device) Then
              devicename = str
              Exit Do
            End If
          End If
          id = id + 1
        Loop While (id < numDevs)

Private Declare Function waveOutGetDevCaps Lib "winmm.dll" Alias "waveOutGetDevCapsA" _
 (ByVal uDeviceID As Long, lpCaps As WAVEOUTCAPS, ByVal uSize As Long) As Long


Private Function GetWaveOutDeviceName(id As Long, name As String) As Boolean
  If id = WAVE_MAPPER Then
    name = "Default"
    GetWaveOutDeviceName = True
    Exit Function
  End If

  Dim caps As WAVEOUTCAPS
  If (waveOutGetDevCaps(id, caps, Len(caps)) <> 0) Then
    GetWaveOutDeviceName = False
    Exit Function
  End If
  
  name = Left(caps.szPname, InStr(1, caps.szPname, Chr(0)) - 1)
  GetWaveOutDeviceName = True
End Function

static bool GetWaveOutDeviceName(UINT id, PString & name)
{
  if (id == WAVE_MAPPER) {
    name = "Default";
    return true;
  }

  WAVEOUTCAPS caps;
  if (waveOutGetDevCaps(id, &caps, sizeof(caps)) != 0)
    return false;

  name = PString(caps.szPname).Trim();
  return true;
}

Private Sub Command1_Click()
  Dim str As String, device As String
  device = "bla-bla-bla"
  If getX(str) And str = device Then
    MsgBox "yes"
  End If
End Sub

Function getX(x As String) As Boolean
  x = "bla-bla-bla"
  getX = True
End Function

Private Const MAXPNAMELEN As Long = 32
...
    szPname As String * MAXPNAMELEN
...
    Device = "Динамики (Устройство с поддержк" 'Дефолтное имя устойства Windows 7
    					       'именно в таком виде так как буфер 32 байта - определено из API Viewer)

If (GetWaveOutDeviceName(id, str)) And (str = device) Then

'                               PROPVARIANT varName;
                                Dim varName As PROPVARIANT
                                
'                               // Initialize container for property value.
'                               PropVariantInit(&varName);
                                varName.vt = VT_LPWSTR

'                               // Get the endpoint's friendly-name property.
'                               hr = pProps->GetValue(PKEY_Device_FriendlyName, &varName);
                                ''*****************  LA LIGNE CI-DESSOUS CRASH VB SOUS WINDOWS VISTA  *************************
                                'hr = CallPointer(vIPropertyStoreInterface.GetValue, hlPropertyStore, PKEY_Device_FriendlyName, VarPtr(varName.Data))
                                ''*********************************************************************************************
                                hr = 0
                                
'                               EXIT_ON_ERROR (hr)
                                If Not (hr = INTERFACE_NOERROR) Then
                                    bExitLoop = True
                                
                                Else
'                                   // Print endpoint friendly name and endpoint ID.
'                                   printf("Endpoint %d: \"%S\" (%S)\n", i, varName.pwszVal, pwszID);
                                    ''*****************  TODO  ****************
                                    
'                                   CoTaskMemFree(pwszID);
                                    CoTaskMemFree hlPointerID
                                    
'                                   pwszID = NULL;
                                    hlPointerID = 0
                                    
'                                   PropVariantClear(&varName);
                                    ''*****************  TODO  ****************

Private Type PROPVARIANT 'http://msdn.microsoft.com/en-us/library/aa380072(v=vs.85).aspx
    vt                                      As Long
    data                                    As Long
    ptr                                     As Long
    wReserved1                              As Long
    wReserved2                              As Long
    wReserved3                              As Long
End Type

Private Type PROPVARIANT 'http://msdn.microsoft.com/en-us/library/aa380072(v=vs.85).aspx
  vt                                      As Long 'VT_LPWSTR
  wReserved1                              As Long
  wReserved2                              As Long
  wReserved3                              As Long
  pwszVal                                 As Long 'LPWSTR pwszVal;
                                                  'A pointer to a null-terminated Unicode string
                                                  'in the user default locale.

hr = CallPointer(vIPropertyStoreInterface.GetValue, hlPropertyStore, PKEY_Device_FriendlyName, VarPtr(varName))

DEFINE_PROPERTYKEY (PKEY_Device_FriendlyName, 0xa45c254e, 0xdf1c, 0x4efd, 0x80, 0x20, 0x67, 0xd1, 0x46, 0xa8, 0x50, 0xe0, 14);

Private Const PKEY_Device_FriendlyName              As Long = &H1 'constante personelle, ''TODO а vйrifier

Private Type GUID 'http://msdn.microsoft.com/en-us/library/aa379358%28v=vs.85%29.aspx
  Data1           As Long
  Data2           As Integer
  Data3           As Integer
  Data4(7)        As Byte
End Type

Private Type PROPERTYKEY 'http://msdn.microsoft.com/en-us/library/windows/desktop/dd758071%28v=vs.85%29.aspx
  the_GUID As GUID
  the_PID As Long
End Type

DEFINE_PROPERTYKEY(PKEY_Device_FriendlyName,           0xa45c254e, 0xdf1c, 0x4efd, 0x80, 0x20, 0x67, 0xd1, 0x46, 0xa8, 0x50, 0xe0, 14);    // DEVPROP_TYPE_STRING

Private Const GUID_PKEY_Device_FriendlyName         As String = "{A45C254E-DF1C-4EFD-8020-67D146A850E0}"
Private Const PID_PKEY_Device_FriendlyName          As Long = 14

Private Declare Function IIDFromString Lib "ole32.dll" (ByVal lpszIID As Long, ByRef IID As GUID) As Long

  Dim PKEY_Device_FriendlyName As PROPERTYKEY
  With PKEY_Device_FriendlyName
    IIDFromString StrPtr(GUID_PKEY_Device_FriendlyName), .the_GUID
    .the_PID = PID_PKEY_Device_FriendlyName
  End With

' // Get the endpoint's friendly-name property.
'hr = pProps->GetValue(PKEY_Device_FriendlyName, &varName);
''*****************  LA LIGNE CI-DESSOUS CRASH VB SOUS WINDOWS VISTA  
'hr = CallPointer(vIPropertyStoreInterface.GetValue, hlPropertyStore, PKEY_Device_FriendlyName, VarPtr(varName.Data))
''**********************************************************************

Private Type PROPVARIANT 'http://msdn.microsoft.com/en-us/library/aa380072(v=vs.85).aspx
  vt                                      As Integer 'VT_LPWSTR
  wReserved1                              As Integer
  wReserved2                              As Integer
  wReserved3                              As Integer
  pwszVal                                 As Long   ' union LPWSTR pwszVal;
                                                    'A pointer to a null-terminated Unicode string
                                                    'in the user default locale.
  Padding As Long ' 16 Bytes
End Type