Dim N1 As Float =345.34567
Dim s As String = NumberFormat(N1, 1, 2)
Log(s) '345.35
Dim s As String =NumberFormat2(N1,1,2,2,False)
Log(s) '345.35
Dim s As String = NumberFormat(Ceil(N1*100)/100, 1, 2)
Log(s) '345.35
Dim s As String = NumberFormat(Floor(N1*100)/100, 1, 2)
Log(s) '345.34 ' here is the answer the OP wants