[HaBo]

if durchlauf Mod 1500 = 0 then
   ...
end if

Private Function md5_bytes(ByVal data() As Byte) As String
            Try
                Dim ergebnis As String
                Dim hash() As Byte
                Dim durchl As Integer = 0

                hash = md5_hasher.ComputeHash(data) ' <== HIER TRITT DER FEHLER AUF!!! Der Stacktrace verweist immer auf eine Methode die aus dem Aufruf ComputeHash() hervorgeht!
                tmp_hashlength = hash.Length - 1


                For durchl = 0 To tmp_hashlength
                    ergebnis &= hash(durchl).ToString("X2") ' um das Ganze in Hex-Schreibweise umzuwandeln
                Next

                Return ergebnis
            Catch ex As Exception
                ' stille fehlerbehandlung
                log("Fehler: " & ex.Message)
            End Try
End Function

Dim i As Integer
Dim builder As New Text.StringBuilder()
Console.WriteLine("StringBuilder-Durchlauf wird gestartet!")
builder.EnsureCapacity(300000)
For i = 0 To 100000
builder.Append(CStr(i) & Environment.NewLine)
Next i
Console.WriteLine("StringBuilder-Durchlauf fertig!" & _
Environment.NewLine & _
"String-Durchlauf wird gestartet!")
Dim str As String
For i = 0 To 100000
str &= CStr(i) & Environment.NewLine
Next i
Console.WriteLine("String-Durchlauf fertig!")