Выяснить существует ли треугольник с длинами сторон x, y, z - VB

Формулировка задачи:

Доброго времени суток! Помогите пожалуйста написать программку, функцию понимаю как надо писать, а вот язык новый, не знаю как в нем программировать! Даны действительные положительные числа x, y,z. Выяснить существует ли треугольник с длинами сторон x, y, z, если такой треугольник существует, то ответить является ли он остроугольным. Заранее спасибо!

Решение задачи: «Выяснить существует ли треугольник с длинами сторон x, y, z»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim x!, y!, z!, m!
x = InputBox("x")
y = InputBox("y")
z = InputBox("z")
 
Dim a(1 To 3) As Single
a(1) = x: a(2) = y: a(3) = z
For i = 1 To 3
For j = 1 To 3
If a(i) < a(j) Then m = a(i): a(i) = a(j): a(j) = m
Next j
Next i
 
 
If a(1) + a(2) <= a(3) Then MsgBox "ГІГ°ГҐГіГЈГ®Г«ГјГ*ГЁГЄ Г*ГҐ Г±ГіГ№ГҐГ±ГІГўГіГҐГІ": Exit Sub
 
s = Sqr(a(1) ^ 2 + a(2) ^ 2)
 
If a(3) < s Then MsgBox "Г®Г±ГІГ°Г®ГіГЈГ®Г«ГјГ*Г»Г©"
If a(3) = s Then MsgBox "ГЇГ°ГїГ¬Г®ГіГЈГ®Г«ГјГ*Г»Г©"
If a(3) > s Then MsgBox "ГІГіГЇГ®ГіГЈГ®Г«ГјГ*Г»Г©"
 
End Sub