Visual Basic - Resta negativa

hola, mi consulta es la siguiente :
Tengo este codigo
a = Format((TimeValue(Text8.Text) - TimeValue(Text7.Text)), "hh:mm:ss")
b = Format((TimeValue(Text10.Text) - TimeValue(Text9.Text)), "hh:mm:ss")
Text11.Text = Format((TimeValue(a) + TimeValue(b)), "hh:mm:ss")

Text12.Text = Format((TimeValue(Text11.Text) - TimeValue(Label15.Caption)), "hh:mm:ss")

El primer trozo bien pero el segundo el resultado tendria que ser negativo y lo da como positivo como lo pudo solucionar...

Alguien me podria ayudar.
Gracias.