1° devi formattare il codice con il tag CODE (come da Regolamento)
altrimenti è illeggibile.

2° L'errore principale che commetti è che viene eseguito del codice anche se i campi dei dati sono vuoti.
Invece, in questo caso, devi uscire dalla routine, così:

codice:
If Conicità.Text = "" Or Altezza.Text = "" Or Corda.Text = "" Then
    MsgBox "Inserire Conicità,Altezza e corda", vbInformation, "ERRORE"
    Exit Sub  
End If