В каждой строке текстового файла определить самое длинное слово нечетной длины и записать их в новый файл - Visual Basic .NET (251203)

Imports System.IO
Public Class Form1
    Sub write(ByRef l1 As String, ByRef file2 As String)
        Dim hf As New StreamWriter(file2, True)
        Try
            hf.WriteLine(l1)
        Catch ex As Exception
            MsgBox("Файл невозможно записать из-за ошибки:" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Critical)
        Finally
            hf.Close()
        End Try
    End Sub
 
    Function Solution(ByVal input As String)
        Dim k, i, m As Integer
        k = input.IndexOf(",", 1)
        m = input.Length - 1
        If k <> -1 Then
            If input.Substring(k - 1, 1) >= "0" And input.Substring(k - 1, 1) <= "9" Then
                For i = k + 1 To m
                    If input.Substring(i, 1) <> "0" Then
                        Exit Function
                    End If
                Next i
            Else
                Exit Function
            End If
        Else
            Exit Function
        End If
        Return input
    End Function
 
    Sub Main(ByVal file1 As String, ByVal file2 As String, ByVal lb1 As ListBox, ByVal lb2 As ListBox)
        Dim l1, p As String
        Dim n As Integer
        Dim str() As String
        Dim sr As New StreamReader(file1)
        p = ""
        n = 0
        Try
            Do While Not sr.EndOfStream()
                l1 = sr.ReadLine()
                p = l1 & vbNewLine
                lb1.Items.Add(p)
                str = l1.Split(vbNewLine)
                For i As Integer = 0 To str.Length - 1
                    lb2.Items.Add(Solution(str(i)))
                    write(Solution(str(i)), file2)
                Next
            Loop
            sr.Close()
        Catch ex As Exception
            MsgBox("Файл невозможно прочитать из-за ошибки:" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim file1 As String = ""
        Dim file2 As String = ""
        file1 = TextBox1.Text
        file2 = TextBox2.Text
        Main(file1, file2, ListBox1, ListBox2)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class