Dim temp, strTemp As String
        Dim x, i As Integer
        For x = 5 To 1 Step -1
            temp = ""
            For i = 1 To x
                temp = temp & i
            Next
            strTemp = strTemp & temp & vbCrLf
        Next
        textbox1.Text = strTemp