Visual Basic - Coneccioón con CD

Hola chicos me gustaria saber si Basic posee un objeto que se pueda comunicar con un CD, es decir que pueda leer a través de codigo las canciones de un CD

Fijate en: http://www.vbaccelerator.com/home/VB/Code/vbMedia/CD_TrackListings/article.asp

¡Ya llevamos muchos dias de verano en Sevilla!
El sol caliente y el "coco" se pone "a más de mil".

Lo que Cecilia quiere decir, más o menos es esto:

Function DiscID() As Long
tocSum = 0
For Each track in CDTOC
tocSum = tocSum + AddDigits(track.PositionInSeconds)
Next

firstLastSum = CDTOC.track(0).PositionInSeconds
firstLastSum = firstLastSum - CDTOC.leadOut.PositionInSeconds

DiscId = ((tocSum and &HFF)>>24) Or ((firstLastSum)>>8) Or CDTOC.NumTracks
End Function

Function AddDigits(position)
addDigits = 0
Do While (position > 0)
addDigits = addDigits + (position Mod 10)
position = position \ 10
Loop
End Function

Que obteniendo los datos del "firstro duodenal" viene a dar los resultados requeridos, siempre y cuando seas ingeniero del Gates ese.