Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim charset = "0123456789ABCDEFGHIJKLMNOP"

        For X = 0 To 25

            For Y = 0 To 25

                Console.WriteLine(charset.subString(X, 1) + charset.subString(Y, 1))

            Next

        Next

    End Sub

End Module

​