Как сохранить в текстовый файл сгенерированные текстовые строки с рандомным содержанием? - Visual Basic .NET

Формулировка задачи:

Программированием занимался последний раз в далеком 1997, пробую разобраться как бы сказать, наново учусь... Вроде и все просто, но понять не могу, почему когда вывожу в цикле через MsgBox рандомную строку все работает, но когда пишу значения в файл, все строки одинаковые и равняются первой сгенерированной... для генерации использую след. код (код не мой, нашел где-то в интернете):

                    Листинг программы
                
 
                        
                          
                    
Private Function rnd_session() As String
        Dim strlength As Integer = 16
        Dim random As New Random()
        Dim charOutput As Char() = New Char(strlength - 1) {}
        For i As Integer = 0 To strlength - 1
            Dim selector As Integer = random.[Next](65, 101)
            If selector > 90 Then
                selector -= 43
            End If
            charOutput(i) = Convert.ToChar(selector)
        Next
        Return New String(charOutput)
    End Function

код записи тоже прост:

                    Листинг программы
                
 
                        
                          
                    
    Private Sub generator()
        Dim filename As String = Application.StartupPath & "\tmp.txt"
        Dim recorder As StreamWriter = New StreamWriter(filename)
 
        Dim sesss As String = rnd_session()
 
        recorder.WriteLine("session IDs")
 
        For i As Integer = 1 To 100
            Randomize()
            sesss = rnd_session()
            sss = "-session-" & sesss
 
            recorder.WriteLine(sss)
        Next
 
        recorder.WriteLine("end of List") 'end of file
        recorder.Close()
        MsgBox("work comleted")
    End Sub

Решение задачи: «Как сохранить в текстовый файл сгенерированные текстовые строки с рандомным содержанием?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub generator()
        Dim filename As String = Application.StartupPath & "\tmp.txt"
        Dim recorder As StreamWriter = New StreamWriter(filename)
        recorder.WriteLine("session IDs")
        For i As Integer = 1 To 10
            Dim s As String = "-session-" & Guid.NewGuid.ToString
            recorder.WriteLine(s)
        Next
        recorder.WriteLine("end of List") 'end of file
        recorder.Close()
        MsgBox("work comleted")
    End Sub