Imports System

Imports Microsoft.VisualBasic

​

​

Public Module Module1   

    Public Sub Main()

        Dim decRandomNumber as decimal

        Randomize()

        decRandomNumber = (0.99999 * Rnd() )

        Console.WriteLine("Random number: " & decRandomNumber )

​

    End Sub

​

End Module