Hola a toda la comunidad, soy nuevo en está pagina, así que aquí vamos.
Resulta que tengo una array que contiene dos datos uno que son los nombres y el otro los apellidos.
Los nombres tanto como los apellidos están separados por comas, esto lo hago para usar split.
El objetivo es imprimirlo de la manera correcta.
Ejemplo:
dim datos() as string = {"Erick, Leo, Ana", "Lopez, Gomez, Huaman"}
---------
La manera como quiero que me imprima es así:
(Erick Lopez)
(Leo Gomez)
(Ana Huaman)

Aunque para ustedes es sencillo a mi me a complicado la vida.

Les dejo parte de mi codigo.
Extrayendo los datos del arreglo "datos"

Código:

    Function LosDatos()
        Dim obtDatos() As String
        Dim DatosAcomodados As String = ""
        For i As Integer = 0 To UBound(datos)
            obtDatos = Split(datos(i), ",")
            DatosAcomodados = "(" & obtDatos(i) & ")"
            'Me quede aquí porque andaba mal y me quede sin ideas
        Next i

        Return DatosAcomodados
    End Function

Intenta lo siguiente:

Function LosDatos()
Dim datos() As String = {"Erick, Leo, Ana", "Lopez, Gomez, Huaman"}
Dim DatosAcomodados As String = ""

' Si tus valores en el arreglo datos son fijos puedes hacerlo de la siguiente manera :
' En el arreglo datos tienes lo siguiente:
' datos(0) = "Erick, Leo, Ana"
' datos(1) = "Lopez, Gomez, Huaman"

Dim obtNombres() As String = datos(0).Split(",")
' Este arreglo quedaría así:
' obtNombres(0) =Erick
' obtNombres(1) = Leo
' obtNombres(2) =Ana

Dim obtApellidos() As String = datos(1).Split(",")
' Este arreglo quedaría así:
' obtApellidos(0) =Lopez
' obtApellidos(1) =Gomez
' obtApellidos(2) =Huaman

' Puedes hacer el split de cada una de las cadenas al mismo tiempo porque son valores fijos
' Despues haces un for como el siguiente y obtendrás la cadena que requieres.

For i As Integer = 0 To obtNombres.Length - 1
DatosAcomodados = "(" & obtNombres(i) & " " & obtApellidos(i) & ")"
Next i

Return DatosAcomodados
End Function

Si te fué de utilidad estaria genial que te registraras en esta página:
http://www.clixsense.com/?7718911

Me faltó el saldo de linea

For i As Integer = 0 To obtNombres.Length - 1
DatosAcomodados = "(" & obtNombres(i) & " " & obtApellidos(i) & ")" & Environment.NewLine
Next i

Saludos