El problema es que usas Val y eso convierte el número que introduces en el textbox en un entero.
Te vale con convertir el texto en double y hacer la multiplicación.
Tampoco creo que hagan falta dos Format.
Código vb:
Ver originaltotal08 = CDbl(TextBImp8.Text) * 1.08)
TextTotal8.Text = Format(total08, "##,##0.00").Replace(".", ",")