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

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

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

Option Explicit
Private Sub Command1_Click()
Dim a As String 'число
Dim dlina As Double ' длина слова а
Dim max As Integer
Dim min As Integer
Dim i As Integer 'счетчик цикла когда забиваем в массив
Dim p As Integer
Dim j, jj, k As Integer 'счетчик цикла
Dim X() As String
a = Val(InputBox("Введите число", "Ввод числа"))
dlina = Len(a)
ReDim X(1 To dlina)
For i = 1 To dlina
X(i) = Mid(a, i, 1)
Next i
p = 9
min = Val(X(1))
For jj = 2 To dlina
min = p
If min > Val(X(jj)) Then p = Val(X(jj))
Next jj
max = Val(X(1))
For j = 2 To dlina
If Val(X(j)) > max Then max = Val(X(j))
Next j
MsgBox ("минимальное = " & min & " " & "максимальное = " & max)
End Sub