Вывести в Label сообщение с результатом вычисления

[tgm]

Добрый вечер! Мучаюсь с формой,уже и не знаю возможно ли это сделать. Есть два текстбокс и лейбл: 1-й текстбокс - "норма", 2-й текстбокс -"факт". Нужно сравнить данные тексбоксов,если норма меньше факта - вывести в лейбл сообщение: "Перевышение веса на" + разница текстбоксов. Если норма больше факта то: "Недобор веса на" + разница текстбоксов. Помогите пожалуйста.

[doober]

Private Sub CommandButton1_Click()
Dim t1, t2
t1 = CDbl(TextBox1.Text)
t2 = CDbl(TextBox2.Text)
LabeText = ""
LabeText = IIf(t1 > t2, " Превышение веса на " & t2 - t1 & " кг", _
IIf(t1 < t2, " Недобор веса на " & t1 - t2 & " кг", ""))
Label1.Caption = LabeText
End Sub

[tgm]

Doober,спасибо Вам огромное! Супер,все работает.