Почему то не считает минимальное число

[Alekzinder]

Дано натуральное число. Определить его максимальную и минимальную цифры.
Вот код, вроде правильный . Max находит а вот min пишет = 0...

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