Option Explicit

Private Sub Form_Load()

Dim dblTal As Double
dblTal = 10 / 3
dblTal = Round(dblTal, 5) 'avrundar med 5 decimaler
Label1.Caption = dblTal
End Sub