Public Shared Function DecimalAleatorio(Optional ByVal maximo As Decimal = Decimal.MaxValue, Optional ByVal minimo As Decimal = Decimal.MinValue) As Decimal
        Dim r As New Random()
        If minimo > maximo Then
            Dim t As Decimal = minimo
            minimo = maximo
            maximo = t
        End If
        lastdecimalvalue = (r.NextDouble() * (maximo - minimo)) + minimo
        Return lastdecimalvalue

Retorna un decimal aleatorio entre un mínimo y un máximo.

Decimal aleatorio

VB.NET