Выдать максимальное число из комбинаций 4 цифр - VB

Dim n%, n1
Dim a(), max
Dim tm
Private Sub Command1_Click()
 n1 = InputBox("n-?", , 5234)
If IsNumeric(n1) Then
 ReDim a(n1)
n = 0
Do While n1 > 0
n = n + 1
a(n) = n1 Mod 10
n1 = n1 \ 10
Loop
Print
Me.Cls
max = 0
Call per(0)
MsgBox "max=" & max
Else
MsgBox "Error"
End If
End Sub
Sub per(t)
 
If t = n Then
    c = 0
    For i = 1 To n
        c = c + a(i) * 10 ^ (i - 1)
    Next i
    If max < c Then max = c
    Print c
Else
    For i = t + 1 To n
      tm = a(t + 1): a(t + 1) = a(i): a(i) = tm
         Call per(t + 1)
      tm = a(t + 1): a(t + 1) = a(i): a(i) = tm
    Next i
End If
End Sub