Dim rd(7) As String = {"22", "333", "4444", "55555", "666666", "7777777", "88888888", "999999999"}

For n As Integer = 2 To 9
    Dim cont As Integer = 0
    Dim j As Uinteger = 3

    Print Using !"\nFirst 10 super-# numbers:"; n
    Do
        Dim k As Ulongint = n * (j ^ n)
        Dim ix As Uinteger = Instr(Str(k), rd(n - 2))
        If ix > 0 Then
            cont += 1
            Print j; " " ;
        End If
        j += 1
    Loop Until cont = 10
Next n