Sub main()
        
        Dim i, j As Integer
        For i = 4 To 1 Step -1
            For j = 1 To i
                Console.Write(j)
            Next
            Console.WriteLine()
        Next

        Console.ReadLine()
    End Sub
End Module

Sub main

 Dim j As String
 Dim i As Integer

  j = 1234

        For i = Len(j) To 1 Step -1
            Console.Write(Mid(j, 1, i))
            Console.WriteLine()
            
        Next
End Sub