Dim searcher As New ManagementObjectSearcher( _
          "root\CIMV2\Security\MicrosoftVolumeEncryption", "SELECT * FROM" & _
          "Win32_EncryptableVolume")
 
        Try
            For Each qo As ManagementObject In searcher.Get()
                MsgBox(qo("DeviceID"))
            Next
        Catch ex As Exception
            MsgBox(ex.Message & vbCr)
            Me.Close()
        End Try