If Not Me.Vita.Text is DBNull.Value And Not Me.Fianchi.Text is DBNull.Value Then
            Me.Label27.Text = Antropometria(Me.Vita.Text, Me.Fianchi.Text, Me.sesso.Text, eta, "Form8")
        End If