是否可以在VBA中使用API或其他方法来接近真正的随机数？

Private Declare Function CryptAcquireContext Lib "advapi32.dll" Alias "CryptAcquireContextA" (ByRef hProv As Long, ByVal pszContainer As String, ByVal pszProvider As String, ByVal dwProvType As Long, ByVal dwFlags As Long) As Long
Private Declare Function CryptGenRandom Lib "advapi32.dll" (ByVal hProv As Long, ByVal dwLen As Long, ByRef pbBuffer As Byte) As Long
Private Declare Function CryptReleaseContext Lib "advapi32.dll" (ByVal hProv As Long, ByVal dwFlags As Long) As Long

Function GetRandomNumber() As Double
    Dim hProv As Long
    Dim randomBytes(7) As Byte
    Dim randomValue As Double
    
    ' 初始化加密服务提供者
    CryptAcquireContext hProv, vbNullString, vbNullString, 1, 0
    
    ' 生成随机数
    CryptGenRandom hProv, 8, randomBytes(0)
    
    ' 释放加密服务提供者
    CryptReleaseContext hProv, 0
    
    ' 将随机字节转换为双精度浮点数
    randomValue = CDbl((randomBytes(0) + randomBytes(1) * 256 + randomBytes(2) * 65536 + randomBytes(3) * 16777216 + randomBytes(4) * 4294967296 + randomBytes(5) * 1099511627776 + randomBytes(6) * 281474976710656 + randomBytes(7) * 72057594037927936) / 72057594037927935#)
    
    GetRandomNumber = randomValue
End Function