Module FusionarListas

    Public Function Fusionar(ByVal listaA() As String, _

                             ByVal listaB() As String, _

                             ByVal listaC() As String) As Integer

        Dim indice As Integer, indiceA As Integer, indiceB As Integer, indiceC As Integer

        'Retorna 0, si no hay datos en las listas

        If listaA.Length + listaB.Length = 0 Then Return 0

        'Fusionar listas a y b en c

        While indiceA < listaA.Length And indiceB < listaB.Length 'checa el final de las listas

            ' Compararlos alfabeticamente

            If listaA(indiceA).CompareTo(listaB(indiceB)) < 0 Then

                listaC(indiceC) = listaA(indiceA)

                indiceC += 1

                indiceA += 1

            Else

                listaC(indiceC) = listaB(indiceB)

                indiceC += 1

                indiceB += 1

            End If

        End While

        'Por lógica, una de las listas finalizará primero, aunque sean del mismo tamaño

        'No se calcula cual finalizó primero, pues requiere espacio cualquier comparación.

        'Es mejor pasar las listas, si A finalizó primero, el primer for no entrara

        'si B finalizó primero el segundo for no se llevará a cabo...

        For indice = indiceA To listaA.Length - 1

            listaC(indiceC) = listaA(indice)

            indiceC += 1

        Next

        For indice = indiceB To listaB.Length - 1

            listaC(indiceC) = listaB(indice)

            indiceC += 1

        Next

        'Con esto nos hemos asegurado que todos los datos estarán en la listaC

        Return 1 'Regresa 1, despúes de fusionar las listas a y b en c

    End Function

    'Función Principal, por donde empezará el programa

    Sub Main()

        'Iniciar las listas, se pueden sustituir estas lineas por lectura desde el teclado

        Dim lista1() As String = {"Ana", "Carlos", "David", "Emanuel", "Francisco", _

                                  "José", "Karla", "Luis", "Nohemi", "Omar", "Pedro", _

                                  "Rosa", "Susana"}

        'Aqui iniciamos una lista en desorden, con la intención de mostrarles los fácil que es

        'ordenarlas

        Dim lista2() As String = {"Sonia", "Belén", "Guillermo", "Fernando", _

                                  "Daniel", "Hugo", "Alfredo"}

        'De la matriz que almacenará la fusión de las listas 1 y 2, no se sabe su dimensión,

        'y no podemos arriesgarnos a poner un número cualquiera, podría desbordarse si se pasa el

        'límite, o desperdiciar memoria, esto lo menciono porque podemos calcular el

        'tamaño de la lista3, solo hay que sumar lista 1 y 2

        Dim lista3(lista1.Length + lista2.Length) As String

        Dim Resultado As Integer, indice As Integer

        System.Array.Sort(lista2) 'Ordenar alfabéticamente la lista2...       

        'Como la función FUSIONAR retorna 0 si no se realizó la fusión, podemos mostrarlo en pantalla

        resultado = Fusionar(lista1, lista2, lista3)'Pasamos las listas

        If Resultado <> 0 Then

            For indice = 0 To lista3.Length - 1

                Console.WriteLine(lista3(indice))

            Next

        Else

            WriteLine("No se realizó la Fusión")

        End If

    End Sub

    'Recuerden que una Matriz, contiene una dirección de memoria y todos los datos están en orden

    'por lo tanto no necesitamos llenar la matriz desde aqui, al hacerlo desde FUSIONAR,

    'la matriz queda con los datos y podemos acceder a ellos desde aqui.

    'Bien, hemos tratado las matrices o arrays como objetos, espero les sirva como guía, bueno

    'simplemente que les sirva...

End Module

 *el ejercicio fue propuesto por: Javier Ceballos.