Option Explicit
Dim dblFaktor As Double
 
Private Sub Form_Load()
  dblFaktor = 0
  Label1.Caption = "0,00"
  With UpDown1
    .Increment = 1  'die schrittweise
    .Max = 200  'wenn Du ein größeren Wertebereich brauchst, dann höher
    .Min = 0
  End With
End Sub
 
Private Sub UpDown1_Change()
  dblFaktor = CDbl(UpDown1.Value / 100)
  Label1.Caption = Format$(CStr(dblFaktor), "0.00")
End Sub