relation fra VBA til en formular

jeg har følgende script:
Public Function MyAfrund(aValue As Double) As Double
  Dim Result As Double
      Dim f
    f = -(Value > 100) - 4 * (Value > 500) - 5 * (Value > 5000) - 90 * (Value > 10000)
    If Value > 100 Then
        pUpround = (Value \ f) * f
        If pUpround <> Value Then pUpround = pUpround + f
    Else
        pUpround = Value: End If

  Select Case aValue
    Case Is >= 10000
'    skal den runde op til hele 100 kr
      Result = ((aValue \ 100) * 100) + 100
    Case Is >= 5000
'    skal den runde op til hele 10kr
      Result = ((aValue \ 10) * 10) + 10
    Case Is >= 500
'      skal den rundes op til hele 5 kr
      Result = ((aValue \ 5) * 5) + 5
    Case Is >= 100
'      skal den rundes op til hele 1 kr
      Result = ((aValue \ 1) * 1) + 1
    Case Else
      Result = aValue
  End Select
  MyAfrund = Result
 
End Function

nu vil jeg gerne at have det sådan at oprund værdierne læser værdien i en form istedet for at være faste værdier i scriptet

feks således at istedet for :
    Case Is >= 10000
    Result = ((aValue \ 100) * 100) + 100

skal den være ala:
    Case Is >= 10000
    Result = ((aValue \ forms!form1!text1.value) * forms!form1!text1.value) + forms!form1!text1.value