'AVICAP32
Private Declare Function capGetDriverDescriptionA Lib "AVICAP32" (ByVal wDriver As Long, ByVal lpszName As String, ByVal cbName As Long, ByVal lpszVer As String, ByVal cbVer As Long) As Boolean
 
Private Sub Form_Load()
    Dim DriverName      As String
    Dim DriverVersion   As String
    Dim i               As Long
 
    DriverName = Space$(80)
    DriverName = DriverVersion
 
    For i = 0 To 9
        If capGetDriverDescriptionA(i, DriverName, 80, DriverVersion, 80) Then
            Debug.Print (DriverName)
        End If
    Next
End Sub