Файл: Переписать в третий файл только те слова, которые есть и в первом и во втором исходных файлах

Imports IO
 
Module Module1
 
    Sub Main()
        Dim f1, f2 As IO.StreamReader
        Dim f3 As IO.StreamWriter
 
        Dim s1(), s2() As String
        Dim temp1, temp2 As String
        Dim i, j As Integer
 
 
        f1 = My.Computer.FileSystem.OpenTextFileReader("c:\temp\1.txt")
        f2 = My.Computer.FileSystem.OpenTextFileReader("c:\temp\2.txt")
        f3 = My.Computer.FileSystem.OpenTextFileWriter("c:\temp\3.txt", 0)
 
        Do
            temp1 = f1.ReadLine
            temp2 += temp1
 
        Loop Until temp1 Is Nothing
 
        s1 = Split(temp2)
        temp2 = ""
 
        Do
            temp1 = f2.ReadLine
            temp2 += temp1
 
        Loop Until temp1 Is Nothing
 
        s2 = Split(temp2)
 
        For i = 0 To s1.Count - 1
            For j = 1 To s2.Count - 1
                If s1(i) = s2(j) Then f3.WriteLine(s2(j))
            Next
        Next
 
        f1.Close()
        f2.Close()
        f3.Close()
 
    End Sub
 
End Module

Dim s1() As String = (IO.File.ReadAllText("f1.txt")).Split(Chr(32)) 'в предположении что слова разделены пробелом
Dim s2() As String = (IO.File.ReadAllText("f2.txt")).Split(Chr(32))
Dim s3 As String = String.Empty 
For Each wrd As String In s2
    If s1.Contains(wrd) Then s3 &= Chr(32) & wrd
Next
IO.File.WriteAllText("f3.txt", s3)

Dim s1 As IEnumerable(Of String) = (IO.File.ReadAllText("f1.txt")).Split(Chr(32)) 'в предположении что слова разделены пробелом
Dim s2 As IEnumerable(Of String) = (IO.File.ReadAllText("f2.txt")).Split(Chr(32))
Dim s3 As IEnumerable(Of String) = s1.Intersect(s2)
IO.File.WriteAllText("f3.txt", String.Join(" ", s3))