buenas muchachos.

les aseguro que intente con la ayuda que uds me dieron, resolver el problema que tengo. pero me doy cuenta que no se nada de programacion.

ahora les voy a decir que es lo que necesito y ahi veran uds si me ayudan.

en el text1 lo siguiente:
4 5 24 29 30 31
4 5 13 16 18 20
4 6 15 20 32 43
4 6 26 36 37 38
4 6 23 32 34 42
4 6 18 23 25 37
4 6 17 18 22 38
4 6 10 21 34 39
4 7 23 39 40 45
4 7 26 36 37 43
4 7 11 18 27 31
4 7 13 15 44 45
4 8 13 27 41 43
4 8 14 23 25 31

en el text2 lo siguiente:

4 24 30 31

como se daran cuenta en la primera linea coinciden 4 veces
y en la ultima linea coinciden 2 veces.

entonces sería posible hacer un programa que analize linea por linea y luego
me de el siguiente resultado en textbox:

4 coincidencias = 1
3 coincidencias=3
2 conicidencias=8
1 coincidencias=16

espero haberme explicado bien pero sobretodo espero que se tomen la molestia de contestar

es que con las respuestas de la vez pasada pues no separaba los números, osea si yo colocaba el 4 y si en la texbox estaba el 4 34 y 24 pues contaba 3 veces el cuatro

bueno hasta la proxima y gracias

Hola, lo hice asi nomas para que te orientes un poco, use la api SendMessage para obtener facilmente las lineas de los textbox, pero lo otro es facil simplemente va haciendo Split() y fijandose si existe el valor en el array.

la salida del codigo es la siguiente:

Coincidencias Linea 1: 4
Coincidencias Linea 2: 1
Coincidencias Linea 3: 1
Coincidencias Linea 4: 1
Coincidencias Linea 5: 1
Coincidencias Linea 6: 1
Coincidencias Linea 7: 1
Coincidencias Linea 8: 1
Coincidencias Linea 9: 1
Coincidencias Linea 10: 1
Coincidencias Linea 11: 2
Coincidencias Linea 12: 1
Coincidencias Linea 13: 1
Coincidencias Linea 14: 2

con 2 textbox en el formulario y pone tal cual vos pusiste ahi.

Código:

Option Explicit
 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
Const EM_GETLINECOUNT = &HBA
Const EM_LINELENGTH = &HC1
Const EM_LINEINDEX = &HBB
 
Private Sub Command1_Click()
 
    If Text1.Text = "" Then Exit Sub
    
    Dim vArrayPrincipal() As String, vArraySecundario() As String
    
    Dim vLineaActual As String
    
    Dim vCantidadLineas As Long
    Dim vPrimerCaracter As Long
    Dim vLongitudLinea As Long
    Dim vContador As Integer
    Dim i As Integer, v As Integer
    
    vArraySecundario = Split(Text2.Text, " ")
    
    vCantidadLineas = SendMessage(Text1.hWnd, EM_GETLINECOUNT, 0, 0&)
    
    For i = 0 To vCantidadLineas - 1
        vPrimerCaracter = SendMessage(Text1.hWnd, EM_LINEINDEX, i, 0&) + 1
        vLongitudLinea = SendMessage(Text1.hWnd, EM_LINELENGTH, vPrimerCaracter, 0&)
        vLineaActual = Mid$(Text1.Text, vPrimerCaracter, vLongitudLinea)
        
        vArrayPrincipal = Split(vLineaActual, " ")
        
        vContador = 0
        
        For v = LBound(vArraySecundario) To UBound(vArraySecundario)
           If BuscarArray(vArraySecundario(v), vArrayPrincipal) Then
                vContador = vContador + 1
           End If
        Next v
        
        Debug.Print "Coincidencias Linea " & i + 1 & ": " & vContador
        
    Next i
    
End Sub
 
Private Function BuscarArray(ByVal pPalabra As Variant, ByVal pArray As Variant) As Boolean
  Dim vPosicion As Long
  
  vPosicion = InStr(1, vbNullChar & Join(pArray, vbNullChar) & vbNullChar, vbNullChar & pPalabra & vbNullChar)
  
  If vPosicion > 0 Then BuscarArray = True
End Function

saludos.