Ok ragazzi ho risolto in parte ho inserito il seguente code:

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)
Seno.Caption = Sin(Arcotangente)
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
End If
If Saetta.Text <= 8 Then
MsgBox "Inserire nuova corda(Corda2)"
Else
Dim Cateto3 As Double
Cateto3 = Ipotenusa.Text ^ 2 - ((Corda2.Text / 2) ^ 2)
Saetta2.Text = Ipotenusa.Text - Cateto3
End If
End Sub


Mi rimane solo un piccolo problema che le 2 istruzioni if entrano in conflitto tra loro per esattezza: l'if riguardante i campi vuoti e quello dove citavo che se la Saetta.text fosse inferiore o uguale a 8 di apparire la Msgbox ove citavo di inserire una nuova Corda.
Penso di essere ad un passo dalla soluzione, ma mi manca solo sto passaggio, per il resto ho risolto.