If IsNumber(polomer.text) Then vysledek=Math.PI*polomer.text*2 Else MsgBox "spatne" End If nejak tak.. visual neumim