Programmering- Procent regning

Hej experter Jeg er ny til programmering på visual basic og er stødt ind på en problem, som jeg ikke rigtig kan finde ud af.

Jeg har lavet et program der beregner, når en sæde koster 146kr stk, hvor meget koster fx.120 stk. og det samme med en anden sæde der koster fx.175 kr stk, hvor meget koster flere. her til har jeg fundet ud af.

Men nu skal jeg til at beregne hvor mange procent tilsammen, sæderne udgøre af det totale beløb af sædernes pris. PRoblemet er ligemeget hvad jeg taster ind, bliver resultatet "100%".

please hjælp mig.. her er min kode


' først har vi vores input fra TxtIalt.text
        Dim indtægt_ialt As Double = TxtIalt.Text

'Derefter laver vi variabler for hver sæde for at beregne procent værdien for hver sæde
        Dim resultat_af_orkestra_sæde_procent As Double
        Dim resultat_af_Gulv_sæde_procent As Double
        Dim resultat_af_Altan_sæde_procent As Double

'så laver vi en variabel for output
        Dim resultat_ialt_af_sæder_procent As Integer

'Efterfølgende har vi her en process der beregner hvor mange procent hver sæde udgøre af hele beløbet(Altså det beløb i TxtIalt.text)
     
  resultat_af_orkestra_sæde_procent = (resultat_orkestra / indtægt_ialt)
        resultat_af_Gulv_sæde_procent = (resultat_Gulv / indtægt_ialt)
        resultat_af_Altan_sæde_procent = (Resultat_Altan / indtægt_ialt)

  ' Så har vi her endelige vores output
     
resultat_ialt_af_sæder_procent = (resultat_af_orkestra_sæde_procent) + (resultat_af_Gulv_sæde_procent) + (resultat_af_Altan_sæde_procent)

' Og outputtet bliver printer ud på LblProcent.text(Label)
        LblProcent.Text = resultat_ialt_af_sæder_procent.ToString("P1")