format [VBA]

option explicit

public sub format_()

  dim str as string
  dim dbl as double

  dbl = 42.42
  str = format(dbl, "0.0")  ' 42.4
  msgBox(str)

  dbl = 42.52
  str = format(dbl, "0.0")  ' 42.5
  msgBox(str)

end sub