Export Keyboard Info to CSV via WMI (VBA)

Attribute VB_Name = "KeyboardWmiExport"
Option Explicit

Public Sub KeyboardWmiExport()
    Dim objWMIService As Object
    Dim colItems As Object
    Dim objItem As Object
    Dim outPath As String
    Dim fileNum As Integer
    Dim propsArr() As String
    Dim c As Long
    Dim lineOut As String
    Dim val As String
    Dim rowCount As Long

    outPath = Environ("USERPROFILE") & "\Documents\KeyboardExport.csv"
    propsArr = Split("Description, Layout, NumberOfFunctionKeys", ", ")

    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colItems = objWMIService.ExecQuery("SELECT Description, Layout, NumberOfFunctionKeys FROM Win32_Keyboard")

    fileNum = FreeFile
    Open outPath For Output As #fileNum
    Print #fileNum, Join(propsArr, ",")

    rowCount = 0
    For Each objItem In colItems
        lineOut = ""
        For c = LBound(propsArr) To UBound(propsArr)
            val = ""
            On Error Resume Next
            val = CStr(objItem.Properties_(propsArr(c)).Value)
            On Error GoTo 0
            If c > LBound(propsArr) Then lineOut = lineOut & ","
            lineOut = lineOut & """" & Replace(val, """", """""") & """"
        Next c
        Print #fileNum, lineOut
        rowCount = rowCount + 1
    Next objItem

    Close #fileNum

    MsgBox rowCount & " Keyboard Info row(s) exported to " & outPath, vbInformation
End Sub