Dim a As Integer
        Dim b As String = "12345"
        Dim c As String = ""
        For a = 1 To 5
            c = c & b.Substring(0, a) & vbCrLf
        Next
        textbox1.Text = c