Angka Piramid terbelah

Module Module1
    Dim a As Integer
    Dim x
    Sub Main()
        Console.Write("Masukan Angka :")
        a = Console.ReadLine

        For y = 1 To a
            x = x & y
            Console.WriteLine(x)
        Next
        Console.Read()
    End Sub

End Module