Ребята, подскажите где ошибка в этом элементарном коде

[Чудогосподня]

Суть программки- калькулятор, расчитивающий математические функции, в частности Sin X
В text1 вбиваем градусы, text2 минуты, text3 секунды. Получаем результат в text4.
И так в form1 вводим переменные

FORM1
const pi = 3.14
dim grad as single
dim min as single
dim sec as single
dim angle as single

в commandbutton1 Sin вбиваем
1 grad = text1
2 min = text2
3 sec = text3
4 angle = (grad+min/60*100 + sec/60*100)*Pi/180
5 Text4 = sin(angle)

При исполнении такого кода прога должна высчитывать синус из угла.
Но не хочет. Если вбить градусы, минуты, секунды, то при любом результате ответ будет 0.
Если вбить только градусы, а остальные поля оставить пустыми - прога выдаст ошибку в 4й строке. Я так подозреваю, из-за того, что алгоритмом четко прописана формула по расчету угла. Но, даже если эти поля забивать- все равно ничего не выходит.

Где косяк ?

[Хакер]

Увы и ах: косяк в голове и подходе к миру.

[Александр Дмитриев]

У меня всё работает. Единственное - это умножать на 100 в 4 строчке не нужно (в обоих случаях). И ошибка при пустых полях выводится не в 4, а во 2 строке.
Ты наверно что-то не туда "вбиваешь".

[Чудогосподня]

Хакер, ну хоть предыдущие 9000 ответов были более полезными ? =)) НЛ.
Александр, спасибо, попробую. Осталось выяснить как мне заставить программу не обращать внимание на пустые поля.

[Чудогосподня]

Почему на аватаре симпатичная девушка ? О_о

[Twister]

dim grad as single

grad = text1

А на Хакера вы зря наехали. Покажите мне такой учебник/статью, где говорится, что так надо писать?
Подсказка: зачем у текстовых полей сделали свойство Text?

[alex77755]

min/60*100 + sec/60*100)

Здесь однозначно - получается min = sec
хотя бы sec/3600*100 - так мне кааажется.
Ну и "*100" что-то мне подсказывает не нужно ни где.

[FFOX]

А на Хакера вы зря наехали. Покажите мне такой учебник/статью, где говорится, что так надо писать?
Подсказка: зачем у текстовых полей сделали свойство Text?

И еще, как-то проверять и приводить значения в текстбоксах к числовым тоже не помешает