round2(V As Double) As Double
Dim PosInStr As Byte
PosInStr = InStr(1, CStr(V * 100 + 0.5), ",", vbTextCompare)
If PosInStr = 0 Then PosInStr = Len(CStr(V * 100 + 0.5)) + 1
round2 = CLng(Mid$(CStr(V * 100 + 0.5), 1, PosInStr - 1)) / 100

'round2 = Int(Abs(V) * 100 + 0.5) / 100 * Sgn(V)
End Function
Public Sub PutIn(NameOfFile As String)