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

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de