C# と VB.NET の質問掲示板

いつもお世話になっております。

VB2008です。
本日から1年前までのランダムな日付を取得したいのですが、方法がわかりません。
VBAだと下記で出来たのですが、VB2008だとどのような方法がありますか？

宜しくお願い致します。

    Dim dteUpperDate As Date
    Dim dteLowerDate As Date
    
    dteUpperDate = Now
    dteLowerDate = DateAdd("yyyy", -1, Now)
    
    Randomize
    GetRandomDate = Int((dteUpperDate - dteLowerDate + 1) * Rnd + dteLowerDate)

みきぬ様、マサヤ様、ありがとうございます。

マサヤ様の教えてくださったURL、あとでじっくり読ませて頂きます。

下記の方法でランダムな日付を取得する事が出来ました。

Public Class frmMain

    Private msysRandom As New Random

    Private Function GetRandomDate(ByVal DateFormat As String) As String
        Dim LowerDate As Date = Today.AddYears(-1)
        Dim RandomDate As Date
        Dim DateSpan As Integer

        DateSpan = msysRandom.Next(1, 365)
        RandomDate = LowerDate.AddDays(DateSpan)
        GetRandomDate = RandomDate.ToString(DateFormat)
    End Function
End Class

インスタンスは1つのみ、と理解したのでクラス変数としたのですが、正しいでしょうか？

宜しくお願い致します。