Hola
Creo que al pasar el formato texto a número con la función Val, internamente VB transforma los puntos de los miles en comas, es decir, si tienes 1.200 el lo interpreta como 1,2. Para que no ocurra esto tendrías que volver a quitar el formato para sumar. Algo como:
Código:
Text5.Text = Val(Format(Text1.Text, "##")) + Val(Format(Text2.Text, "##")) + Val(Format(Text3.Text, "##")) + Val(Format(Text4.Text, "##"))
Text5.Text = Format(Text5.Text, "####,####")
--Saludos--