Ma io ho inserito il tag del code, aspetta lo riposto spero in maniera corretta questa volta.

codice:
Private Sub command1_click()  If Conicità.Text = "" Or Altezza.Text = "" Or Corda.Text = "" Then MsgBox "Inserire Conicità,Altezza e Corda", vbInformation, "ERRORE"  Else Tangente.Caption = Conicità.Text / Altezza.Text  Arcotangente.Caption = Atn(Tangente.Caption)  Seno.Caption = Sin(Arcotangente.Caption)  Cateto.Text = Corda.Text / 2  Ipotenusa.Text = Cateto / Seno  Dim Cateto2 As Double  Cateto2 = Sqr(Ipotenusa.Text ^ 2 - Cateto ^ 2)  Saetta.Text = Ipotenusa.Text - Cateto2  Raggio.Text = (Corda ^ 2 / (4 * Saetta) + Saetta) / 2  Exit Sub  End If  If Saetta.Text <= 8  Then MsgBox "Inserire nuova corda(Corda2)", vbInformation, "ERRORE"  Else  Dim Cateto3 As Double  Cateto3 = Sqr(Ipotenusa.Text ^ 2 - (Corda2.Text / 2) ^ 2)  Saetta2.Text = Ipotenusa.Text - Cateto3  End If   End Sub
Spero che questa volta sia leggibile, ho letto dal regolamento la procedura per taggare il code spero sia giusto.