Найти все трехзначные числа, представимые в виде сумм факториалов своих цифр - VB

Private Sub Command1_Click()
    Dim i&, f&(9)
    f(0) = 1
    For i = 1 To 9
        f(i) = f(i - 1) * i
    Next i
    For i = 100 To 999
       If i = f(i \ 100) + f(i \ 10 Mod 10) + f(i Mod 10) Then Print i
    Next i
End Sub