Visual Basic - SOCORRRRRRO

¿Alguien puede decirme porque las resta (167.97-160.04) devuelve
7,93000000000001 y no 7.93?

Prueba de declarar la variable que utilizas para el resultado de tipo single:

Dim resultado As Single

Private Sub Command1_Click()
resultado = Val(Text1) - Val(Text2)
Text3.Text = resultado

End Sub

Para obtener los decimales que necesitas emplea la funcion Format()