نگهداری مقدار در یک کلاس

سلام دوستان وقت بخیر
من یه فرم دارم که داخل اون فقط یک باتن قرار داره.میخوام زمانی که روی باتن کلیک کردم وارد یک کلاس بشه و اگر برای اولین بار وارد شده یه عدد تصادفی بهم بده و اون در یک رشته در خود کلاس نگهداری کنه و در صورت تکرار کلیک روی باتن عدد اول رو که نگهداری شده بمن نشون بده و عدد جدید درست نکنه.متاسفانه نمیدونم باید چیکار کنم تا عدد در کلاس نوشته شدم حفظ بشه.ممنون میشم راهنمایم کنید

Public Class Singleton    Private Shared uniqueInstance As Singleton = Nothing    Sub mssg(ByVal txt As String)        Dim uniqueInstance As Integer        Dim j As Integer        j = Rnd() * (1000)
        If uniqueInstance = Nothing Then            uniqueInstance = j            MsgBox(uniqueInstance)        Else            MsgBox(uniqueInstance)
        End If    End SubEnd Class