Numeros verdaderamente random en vb.net

poner este namespace:

Imports System.Security.Cryptography

codigo:

Dim ByteArray As Byte() = New Byte(3) {}
Dim rnd As New RNGCryptoServiceProvider()
rnd.GetBytes(ByteArray)
Return BitConverter.ToInt32(ByteArray, 0)

Diseño de sistemas a medida