Максимальное число нормально выводится на экран, а минимальное всегда равно 0 - VB

Формулировка задачи:

Private Sub Command1_Click()
Dim A1, A2, A3, A, N, i As Integer
N = Val(InputBox("N=", "Ввод N"))
A1 = 1
A2 = 2
A3 = 3
For i = 4 To N
A = (A3 + A2 - 2 * A1)
A1 = A2
A2 = A3
A3 = A
Print ???
  Next i
End Sub

Как вывести на экран А1, А2,...,АN не пойму как в принт ввести эту последовательность) Дано натуральное число. Определить его максимальную и минимальную цифры.

Private Sub Command1_Click()
Dim g, n, min, max As Integer
n = Val(InputBox("n=", "Ввод n"))
min = n Mod 10
max = n Mod 10
n = n / 10
If n = 0 Then MsgBox "Число однозначное"
Do While n > 0
g = n Mod 10
If min > g Then min = g
If max < g Then max = g
n = n / 10
Loop
Print "min=", min
Print "max=", max
End Sub

Здесь проблема в том что максимальное число нормально выводится на экран, а вот минимальное пишет = 0...

Решение задачи: «Максимальное число нормально выводится на экран, а минимальное всегда равно 0»

textual
                            Листинг программы 
                        

                            p = 9
min = Val(X(1))
For jj = 2 To dlina
min = p
                        