This is a modified answer :
Label11.Text = (Convert.ToDecimal(LabelAlisa.Text.Trim().Replace(".", ",").Replace("€", "")) _
- Convert.ToDecimal(Labalsum.Text)).ToString().Replace(".", ",") & " €"
Label12.Text = (Convert.ToDecimal(LabelEnis.Text.Trim().Replace(".", ",").Replace("€", "")) _
- Convert.ToDecimal(Labalsum.Text)).ToString().Replace(".", ",") & " €"
Label13.Text = (Convert.ToDecimal(LabelElvis.Text.Trim().Replace(".", ",").Replace("€", "")) _
- Convert.ToDecimal(Labalsum.Text)).ToString().Replace(".", ",") & " €"
and I used this to remove the numbers behind :
Labalsum.Text = FormatNumber(Labalsum.Text, 2)
Thank you