Dim i, Result As Double
Do While 1
Result = i * 1997
If InStr(1, Str(Result), "99999") <> 0 Then
Debug.Print i & Space(2) & Result
Exit Do
End If
i = i + 1
Loop

2003 3999991