RNG_Bytes

Generates a random set of byte data.

VB6/VBA

Debug.Print "Testing RNG_Bytes ..."
Dim abData() As Byte
Dim nDataLen As Long

nDataLen = 16
ReDim abData(nDataLen - 1)
Call RNG_Bytes(abData(0), nDataLen, "", 0)
Debug.Print cnvHexStrFromBytes(abData)

Output

Testing RNG_Bytes ...
BDF2223A97834D560D4063BC6C3587A1

VB.NET

Console.WriteLine("Testing RNG_Bytes ...")
Dim abData() As Byte
Dim nDataLen As Integer

nDataLen = 16
abData = Rng.Bytes(nDataLen)
Console.WriteLine(Cnv.ToHex(abData))

[Contents]