Ajuda com formatação pesquisa no banco

tenho esta pesquisa no banco mas na hora de mostrar no display ele não restringe a quantidade de casas

Table = xc_ic_Display_Vazao_Analogica.Fonte.Item(“HistVazao_Analogica”).TableName

Set Consulta = xc_ic_Display_Vazao_Analogica.Item("Consulta1")

Consulta.SQL  =  "Select SUM(Valor)as somaHoras FROM " &Table& _
                " WHERE E3TimeStamp >= #<%DataInicial%># AND E3TimeStamp <= #<%DataFinal%># "
Consulta.SetVariableValue "DataInicial", now-1/24
Consulta.SetVariableValue "DataFinal", now 

Set rec = Consulta.GetADORecordset()

 If IsNull(rec.Fields.Item("somaHoras").Value) then   
 

 
 Value = 0 

   
 else
 
 
Value = CStr((rec.Fields.Item("somaHoras").Value*3600) / 1000)+ " " + xc_ic_Display_Vazao_Analogica.Unidade
format = "0,00"


end if

era para ficar somente 2 casas

e o valor fica assim

@ronaldesantos, boa tarde.

Tenta desta forma:

Value = CStr(FormatNumber((rec.Fields.Item(“somaHoras”).Value*3600) / 1000),2))+ " " + xc_ic_Display_Vazao_Analogica.Unidade

Sds.