UserFormmodifierarticle.Txt_F1.Value = Format(CCur(ListBox1.List(ListBox1.ListIndex, 8)), "#,##0.00 €")
UserFormmodifierarticle.Txt_F2.Value = Format(CCur(ListBox1.List(ListBox1.ListIndex, 9)), "#,##0.00 €")
UserFormmodifierarticle.Txt_F3.Value = Format(CCur(ListBox1.List(ListBox1.ListIndex, 10)), "#,##0.00 €")
UserFormmodifierarticle.Txt_F4.Value = Format(CCur(ListBox1.List(ListBox1.ListIndex, 11)), "#,##0.00 €")
UserFormmodifierarticle.Txt_F5.Value = Format(CCur(ListBox1.List(ListBox1.ListIndex, 12)), "#,##0.00 €")