Public Class Form1
    Dim MIN As Integer = 0
    Dim MAX As Integer = 99
 
    Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ControlBox = False ' Elimino todos los controles del formulario
    End Sub
 
 
 
    Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32()
    Dim Sep As Object
    Dim texbox7 As Object
    Dim o As Object
    Private _val As Object
    Private _val1 As Integer
    Dim TextBox As TextBox()
 
    ReadOnly Property Num1 As Int32
        Get
            Return CInt(TextBox1.Text)
        End Get
    End Property
 
    ReadOnly Property Num2 As Int32
        Get
            Return CInt(TextBox2.Text)
        End Get
    End Property
    ReadOnly Property Num3 As Int32
        Get
            Return CInt(TextBox3.Text)
        End Get
    End Property
 
 
Private Property KeyAscii As Integer
 
    Private Property Val(ByVal form1 As Form1, ByVal p2 As Object) As Object
        Get
            Return _val
        End Get
        Set(ByVal value As Object)
            _val = value
        End Set
    End Property
 
    Private Property Val(ByVal p1 As Object) As Integer
        Get
            Return _val1
        End Get
        Set(ByVal value As Integer)
            _val1 = value
        End Set
    End Property
 
    Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) _
    Handles Calcular.Click
 
        Dim TextBoxCount As Short = -1
 
        TextBox = {TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22, TextBox23, TextBox24, TextBox25, TextBox26, TextBox27, TextBox28, TextBox29, TextBox30, TextBox31, TextBox32, TextBox33, TextBox34, TextBox35, TextBox36, TextBox37, TextBox38, TextBox39, TextBox40, TextBox41, TextBox42, TextBox43, TextBox44, TextBox45, TextBox46, TextBox47, TextBox48, TextBox49, TextBox50, TextBox51, TextBox52, TextBox53, TextBox54, TextBox55, TextBox56, TextBox57, TextBox58, TextBox59, TextBox60}
 
        Result1 = {Num1 + 1, Num1 + 20, Num1 + 30} _
                  .Distinct().ToArray ' Elimino duplicados
 
        Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
                  .Distinct().ToArray ' Elimino duplicados
 
        Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
                  .Distinct().ToArray ' Elimino duplicados,,,,,,,,,,,
 
Array.Sort(Result1) : Array.Sort(Result2) : Array.Sort(Result3)  ' Ordeno los Items
 
        ' funcion
        For Each Number As Int32 In Result1
            TextBoxCount += 1
            TextBox(TextBoxCount).Text = Number
        Next
 
        For Each Number As Int32 In Result2
            TextBoxCount += 1
            TextBox(TextBoxCount).Text = Number
        Next
 
        For Each Number As Int32 In Result3
            TextBoxCount += 1
            TextBox(TextBoxCount).Text = Number
        Next
 
 
End Class

otra forma basica con un archivo:
Sub verificar()
    Set fso = CreateObject("scripting.filesystemobject")
    If fso.fileexists("c:\salida.txt") = True Then
        checar
        If a = 5 Then
            MsgBox "Licencia terminada", 32, "Licencia caducada"
            Set Form1 = Nothing
            End
        End If
    ElseIf fso.fileexists("c:\salida.txt") = False Then
        a = "1"
        crearlo
    End If
End Sub
 
Sub crearlo()
    Open "c:\salida.txt" For Output As #1
        Print #1, a
    Close #1
    SetAttr "c:\salida.txt", vbHidden
End Sub
 
Sub checar()
    leerlo
    a = a + 1
    crearlo
End Sub
 
Sub leerlo()
    SetAttr "c:\salida.txt", vbNormal
    Dim foo As Integer
 
    foo = FreeFile
    Open "C:\salida.txt" For Input As #foo
        a = Input(LOF(foo), #foo)
    Close #foo
End Sub
 
Private Sub Form_Load()
verificar
End Sub