Dim rndm As New Random
 
    Private Sub HauWeg(ByVal Filename As String)
 
        Dim linecounter As Integer = rndm.Next(1, 5001)
        Dim lines As New List(Of String)
 
        lines.Add(vbCrLf & "ein neues Paket startet" & vbCrLf)
        For i As Integer = 1 To linecounter
            lines.Add("Irgendein Text in der Zeile" & CStr(i))
        Next i
        IO.File.AppendAllLines(Filename, lines, System.Text.Encoding.UTF8)
    End Sub