Const NbrSize =  5 
Const DigitBase =  5 

Private Sub Form_Load()
   Dim i As Long
   Dim j As Long
   Dim TheNumber As String * NbrSize
   TheNumber = "11111"
   Debug.Print StrReverse(TheNumber)
   For i =  1  To DigitBase ^ NbrSize
      SetNextVal  1 , TheNumber
      Debug.Print StrReverse(TheNumber)
   Next
End Sub

Private Sub SetNextVal(ByVal DigitPos As Long, ByRef TheNumber As String)
   Dim v As Long
   If DigitPos <= NbrSize Then
      v = Mid(TheNumber, DigitPos,  1 )
      If v < DigitBase Then
         v = v +  1 
         Mid(TheNumber, DigitPos,  1 ) = v
      Else
         Mid(TheNumber, DigitPos,  1 ) =  1 
         Call SetNextVal(DigitPos +  1 , TheNumber)
      End If
   End If
End Sub