こんなんでどう？

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

        Array.Clear(intIdxs, 0, intKeta)

        Do While intIdxs(intKeta - 1) < intCharNum
            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) += 1
                    End If
                Else
                    Exit For
                End If
            Next

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