Private Function Wurzelziehen(ByRef WurzelQuelle As Long, _
ByRef Ergebnis As Long) As Long
 
Dim Zsp As Long
Dim H As Long
 
 
Zsp = WurzelQuelle / 2
 
For i = 1 To 100
H = Zsp + WurzelQuelle / Zsp
Zsp = H
Zsp = Zsp / 2
Next i
 
Ergebnis = Format(Zsp, "0.0000000000")
End Function
 
Private Sub cmdBerechnen_Click()
Wurzelziehen txtWurzel.Text, lblErgebnis.Caption
End Sub