If IsNumeric(vykon.Text) Then
If IsNumeric(syceni.Text) Then
dopprurez.Text = Sqr((vykon.Text / 0.8) / syceni.Text)
Else
MsgBox ("Zadaná hodnota musí být číslo s desetinnou čárkou!")
End If
Else
MsgBox ("Zadaná hodnota musí být číslo s desetinnou čárkou!")
End If
Prasácky uděláno ale jde to