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

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

Собственно, задание из заголовка темы.

С единственной оговоркой, необходимо использовать метод my.computer.filesystem. Без него - никак

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

Public Class form1
    Dim Str, result As String
    Sub write(ByVal filename As String, ByRef S As String)
        Try
            My.Computer.FileSystem.WriteAllText(filename, S, True)
        Catch ex As Exception
            MsgBox("ошибка при сохранении файла")
        End Try
    End Sub
    Sub vivod(ByVal z As String, ByRef t As TextBox)
        If z.Length <> 0 Then
            t.Text = z
        Else
            t.Text = "Строка пуста"
        End If
    End Sub
    Sub read(ByRef Str As String, ByVal filename As String)
        Try
            Str = My.Computer.FileSystem.ReadAllText(filename)
        Catch ex As Exception
            MsgBox("Could not open the file due to the " &
            " following error:" & vbCrLf & vbCrLf & ex.Message)
        End Try
    End Sub
    Function Solution(ByVal InputWord As String) As String
        Dim RangeMax As Integer, Range As Integer, maxword As String
        Dim word() As String = InputWord.Split(" ")
        RangeMax = 2
        For Range = 0 To UBound(word)
            If word(Range).Length Mod 2 <> 0 Then
                If word(Range).Length > RangeMax Then
                    RangeMax = word(Range).Length
                    maxword = word(Range)
                End If
            End If
        Next
        Return maxword
    End Function
 
    Sub main(ByVal str As String)
        Dim file2 As String = ""
        Dim h As String = ""
        Dim Lines() As String = Split(str, vbNewLine)
        For i = 0 To UBound(Lines) 
            vivod(Solution(Lines(i)), TextBox4)
            write(file2, Solution(Lines(i)))
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim file1 As String = ""
        file1 = TextBox1.Text
        read(Str, file1)
        vivod(Str, TextBox3)
        main(Str)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class

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

textual
                            Листинг программы 
                        

                              Dim source, result As String
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        read(TextBox1.Text)
        Dim file2 As String = TextBox2.Text
        Dim Lines() As String = Split(source, vbCrLf)
        For i = 0 To UBound(Lines)
            vivod(Solution(Lines(i)), TextBox3)
            Write(file2, Solution(Lines(i)))
        Next
    End Sub
 
    Sub Write(ByVal path As String, ByVal content As String)
        Try
            My.Computer.FileSystem.WriteAllText(path, content & vbNewLine, True, System.Text.Encoding.Default)
        Catch ex As Exception
            MsgBox("ошибка при сохранении файла" & vbNewLine & ex.Message)
        End Try
    End Sub
 
    Sub read(ByVal filename As String)
        Try
            source = My.Computer.FileSystem.ReadAllText(filename, System.Text.Encoding.Default)
        Catch ex As Exception
            MsgBox("Невозможно считать файл " & vbNewLine & ex.Message)
        End Try
    End Sub
 
    Function Solution(ByVal InputWord As String) As String
        Dim RangeMax As Integer, Range As Integer
        Dim maxword As String = ""
        Dim word() As String = InputWord.Split(" ")
        RangeMax = 2
        For Range = 0 To UBound(word)
            If word(Range).Length Mod 2 <> 0 Then
                If word(Range).Length > RangeMax Then
                    RangeMax = word(Range).Length
                    maxword = word(Range)
                End If
            End If
        Next
        Return maxword
    End Function
 
    Sub vivod(ByVal z As String, ByRef t As TextBox)
        If z.Length > 0 Then
            t.Text &= z & vbCrLf
        Else
            t.Text &= "Строка пуста" & vbCrLf
        End If
    End Sub
                        