Uf, jestli si nedokážeš najít použití funkce v helpu nebo na webu, tak to budeš mít v životě jako programátor těžký.
If IsNumeric(polomer.Text) and (Val(polomer.Text) > 0) Then
vysledek.Text = 2 * 3,141592 * polomer.Text
Else
MsgBox("Špatně zadaný poloměr")
End If