Cambio de 32 bits a 64 bits

Private Function HandleToDeviceID(hDevice As Long) As String

    Dim strDeviceID As String

    Dim cDeviceID   As Long

    If CM_Get_Device_ID_Size(cDeviceID, hDevice, 0) = 0 Then

        strDeviceID = Space(cDeviceID)

        If CM_Get_Device_IDA(hDevice, StrPtr(strDeviceID), cDeviceID, 0) > 0 Then

            strDeviceID = StrConv(strDeviceID, vbUnicode)

            strDeviceID = Left(strDeviceID, cDeviceID)

        Else

            strDeviceID = ""

        End If

    End If

    HandleToDeviceID = strDeviceID

End Function