Calcular la serie 1223334444… Codigo en Visual Basic - VB

Problema
Diseñar un algoritmo que muestre la siguiente serie 122333...NNNN.

Codigo Fuente en Visual Basic

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim cad = ""
        Dim n As Integer
        n = TextBox1.Text
        For y As Integer = 1 To n
            For w As Integer = 1 To y
                cad = cad + Trim(y)
            Next w
        Next y
        TextBox2.Text = cad
    End Sub
End Class

 Descargar Proyecto Visual Basic