This works for me

VB Code:
  1. Option Explicit

  2.  
  3. Private Sub Form_Load()

  4. Dim a As Long

  5. Dim b As Currency

  6. a = 40836

  7. b = a / 1000

  8. MsgBox Format(b, "###.#")

  9. End Sub

prints 40.8