shuさん、ありがとうございます。

じつはVBでも、VB6なので以下のようにちょっと手直しをして動かしてみましたが、
ちょっと思いとはずれてしまってるような・・・ （"C"が全然出てこないので）
修正ミスですかねぇ？？？
この例だと桁数は3桁の予定です。

'        Dim chars = {"", "A", "B", "C"}
       chars = Array("", "A", "B", "C")
        
'        Dim intKeta = 5
        Dim intKeta As Integer
        intKeta = 5
        
'        Dim intIdxs(intKeta - 1) As Integer
        Dim intIdxs(4) As Integer
    
'        Dim intCharNum = chars.Length
        Dim intCharNum As Integer
        intCharNum = UBound(chars)

'        Dim strText = ""
        Dim strText As String
        strText = ""
        
        Dim strOutStr As String


'        Array.Clear(intIdxs, 0, intKeta)

        Do While intIdxs(intKeta - 1) < intCharNum
            intIdxs(0) = intIdxs(0) + 1
            For i = 0 To intKeta - 1
                If intIdxs(i) = intCharNum Then
                    If i = intKeta - 1 Then
                        Exit Do
                    Else
                        intIdxs(i) = 1
                        intIdxs(i + 1) = intIdxs(i + 1) + 1
                    End If
                Else
                    Exit For
                End If
            Next

'            Dim strOutStr = ""
        strOutStr = ""
            For i = 0 To intKeta - 1
                strOutStr = strOutStr & chars(intIdxs(i))
            Next
'            Console.WriteLine (strOutStr)
            Debug.Print (strOutStr)
        Loop

結果
-----------------
A
B
AA
BA
AB
BB
AAA
BAA
ABA
BBA
AAB
BAB
ABB
BBB
AAAA
BAAA
ABAA
BBAA
AABA
BABA
ABBA
BBBA
AAAB
BAAB
ABAB
BBAB
AABB
BABB
ABBB
BBBB
AAAAA
BAAAA
ABAAA
BBAAA
AABAA
BABAA
ABBAA
BBBAA
AAABA
BAABA
ABABA
BBABA
AABBA
BABBA
ABBBA
BBBBA
AAAAB
BAAAB
ABAAB
BBAAB
AABAB
BABAB
ABBAB
BBBAB
AAABB
BAABB
ABABB
BBABB
AABBB
BABBB
ABBBB
BBBBB