Get BIOS details of local computer

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_BIOS",,48)
For Each objItem in colItems
    Msgbox "Win32_BIOS instance"
    If isNull(objItem.BIOSVersion) Then
        Msgbox "BIOSVersion: "
    Else
        Msgbox "BIOSVersion: " & Join(objItem.BIOSVersion, ",")
    End If
    Msgbox "Caption: " & objItem.Caption
    Msgbox "Description: " & objItem.Description
    Msgbox "InstallDate: " & objItem.InstallDate
    Msgbox "Manufacturer: " & objItem.Manufacturer
    Msgbox "Name: " & objItem.Name
Next