goshanoob

Найти минимальное число из произвольного количества введенных чисел. Конец ввода определяется точкой.
Я как-то сделал, что прога сравнивала числа по первой цифре из-за несовпадения типов переменных, ясно дело меня это не устроило и я сделал прерывание цикла while после ввода числа 999, затем я узнал, что есть функция val, способная перевести число в нужный момент в нужный тип, но (будь я проклят!) забыл, как написал прогу поначалу! Ни вспомнить, ни сообразить не могу(
Пока всё выглядит так:

Dim k As String
Dim n As String
n=1000000000
Do While (k <> ".")
k = InputBox("Введите число")
If k < n Then
n = k
Else : n = n
End If
Loop
MsgBox(n)

В ответе получаю точку( Если добавиь Val, то прогу зацикливает. Всё это объяснимо, но как мне выйти из положения!??!