Module Module1

    Public n As Integer
    Public m As Integer
    Public fam1() As String
    Public fam2() As String
    Public fam3() As String

    Sub vvod(ByRef fam1() As String, ByRef fam2() As String, ByRef n As Integer, ByRef m As Integer, ByRef p1 As String, ByRef p2 As String)
        Dim i, j As Integer
        n = CInt(Val(InputBox("Введите количество ведущих(fam1)")))
        ReDim fam1(n - 1)
        For i = 0 To n - 1
            fam1(i) = InputBox("Фамилия")
            p1 = p1 & fam1(i) & vbNewLine
        Next i
        m = CInt(Val(InputBox("Введите количество ведущих(fam2)")))
        ReDim fam2(m - 1)
        For j = 0 To m - 1
            fam2(j) = InputBox("Фамилия")
            p2 = p2 & fam2(j) & vbNewLine
        Next j
    End Sub

    Sub vivod(ByVal z As String, ByVal T As TextBox)
        T.Text = z
    End Sub

    Sub sort1(ByVal n As Integer, ByVal m As Integer, ByVal fam1() As String, _
    ByVal fam2() As String, ByRef fam3() As String, ByVal p1 As String, _
    ByVal p2 As String, ByRef kol As Integer, ByRef p3 As String)
        kol = 0
        Dim i, j, l As Integer
        Dim ved As String
        ReDim fam3(n - 1)
        For l = 0 To n - 1
            For i = 0 To n - 1
                For j = 0 To m - 1
                    If fam1(i) = fam2(j) Then kol = kol + 1
                Next j
            Next i
            kol = CInt(fam1(i))
        Next l
        fam3(l) = fam1(i)
        For l = 0 To n - 1
            If fam3(l) < fam3(l + 1) Then
                ved = fam3(l + 1)
                fam3(l + 1) = fam3(l)
                fam3(l) = ved
            End If
        Next l
        p3 = p3 & fam3(l) & vbNewLine
    End Sub
End Module
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim p1 As String = ""
        Dim p2 As String = ""
        Dim n, m As Integer
        vvod(fam1, fam2, n, m, p1, p2)
        vivod(p1, TextBox1)
        vivod(p2, TextBox2)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show()
    End Sub
End ClassPublic Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim p1 As String = ""
        Dim p2 As String = ""
        Dim p3 As String = ""
        Dim topved As String = ""
        Dim kol As Integer
        sort1(n, m, fam1, fam2, fam3, p1, p2, kol, p3)
        vivod(p3, TextBox1)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class