Imports System

Public Module Module1

    Public Sub Main()

        Dim LetA(25) as char

        Dim LetB(25) as char

        Dim LetC(25) as char

        Dim LetD(25) as char

        Dim Add as integer

        Dim Add2 as integer

        Dim Add3 as integer

        Dim Add4 as integer

        LetA(0) = "a"

        LetA(1) = "b"

        LetA(2) = "c"

        LetA(3) = "d"

        LetA(4) = "e"

        LetA(5) = "f"

        LetA(6) = "g"

        LetA(7) = "h"

        LetA(8) = "i"

        LetA(9) = "j"

        LetA(10) = "k"

        LetA(11) = "l"

        LetA(12) = "m"

        LetA(13) = "n"

        LetA(14) = "o"

        LetA(15) = "p"

        LetA(16) = "q"

        LetA(17) = "r"

        LetA(18) = "s"

        LetA(19) = "t"

        LetA(20) = "u"

        LetA(21) = "v"

        LetA(22) = "w"

        LetA(23) = "x"

        LetA(24) = "y"

        LetA(25) = "z"

        LetB(0) = "a"

        LetB(1) = "b"

        LetB(2) = "c"

        LetB(3) = "d"

        LetB(4) = "e"

        LetB(5) = "f"

        LetB(6) = "g"

        LetB(7) = "h"

        LetB(8) = "i"

        LetB(9) = "j"

        LetB(10) = "k"

        LetB(11) = "l"

        LetB(12) = "m"

        LetB(13) = "n"

        LetB(14) = "o"

        LetB(15) = "p"

        LetB(16) = "q"

        LetB(17) = "r"

        LetB(18) = "s"

        LetB(19) = "t"

        LetB(20) = "u"

        LetB(21) = "v"

        LetB(22) = "w"

        LetB(23) = "x"

        LetB(24) = "y"

        LetB(25) = "z"

        LetC(0) = "a"

        LetC(1) = "b"

        LetC(2) = "c"

        LetC(3) = "d"

        LetC(4) = "e"

        LetC(5) = "f"

        LetC(6) = "g"

        LetC(7) = "h"

        LetC(8) = "i"

        LetC(9) = "j"

        LetC(10) = "k"

        LetC(11) = "l"

        LetC(12) = "m"

        LetC(13) = "n"

        LetC(14) = "o"

        LetC(15) = "p"

        LetC(16) = "q"

        LetC(17) = "r"

        LetC(18) = "s"

        LetC(19) = "t"

        LetC(20) = "u"

        LetC(21) = "v"

        LetC(22) = "w"

        LetC(23) = "x"

        LetC(24) = "y"

        LetC(25) = "z"

        LetD(0) = "a"

        LetD(1) = "b"

        LetD(2) = "c"

        LetD(3) = "d"

        LetD(4) = "e"

        LetD(5) = "f"

        LetD(6) = "g"

        LetD(7) = "h"

        LetD(8) = "i"

        LetD(9) = "j"

        LetD(10) = "k"

        LetD(11) = "l"

        LetD(12) = "m"

        LetD(13) = "n"

        LetD(14) = "o"

        LetD(15) = "p"

        LetD(16) = "q"

        LetD(17) = "r"

        LetD(18) = "s"

        LetD(19) = "t"

        LetD(20) = "u"

        LetD(21) = "v"

        LetD(22) = "w"

        LetD(23) = "x"

        LetD(24) = "y"

        LetD(25) = "z"

        Add = 0

        Add2 = 18

        Add3 = 19

        Add4 = 22

​

        While Add < 26 and Add2 < 26 and Add3 < 26 and Add4 < 26

            Console.Writeline(LetA(Add4) & LetB(Add3) & LetC(Add2) & LetD(Add))

            Add = Add + 1

        If Add = 26

        Add2 = Add2 + 1

        Add = 0

                If Add2 = 26 then

        Add3 = Add3 + 1

        Add = 0

        Add2 = 0

                    If Add3 = 26 then

        Add4 = Add4 + 1

        Add3 = 0

        Add2 = 0

        Add = 0

                        If Add4 = 26 then

                Console.Writeline("All done :)")

            End If

                        End If

                End If

            End If

            End while

    End Sub

End Module