Visualizar en ventana MsgBox dato encontrado en columna.

Visualizar en MsgBox  dato encontrado
Hola Dam… de  nuevo solicitando tu apoyo. Hace unas semanas me apoyaste con este código que te anexo, pero ahora surge una nueva necesidad por lo que te pido un nuevo aporte. En la parte del código donde detecta que la celda contigua a la derecha del numero buscado y encontrado se encuentra ocupada por un dato (palabra), emite una ventana MsgBox anunciando “Tarjeta ya modificada” etc. Necesito que en esta misma ventana me enuncie ese dato o palabra encontrada junto al folio buscado. Muchas gracias de nuevo.

Private Sub Cmdingresar_Click()
On Error Resume Next
Application.ScreenUpdating = False
If Range("Q3") = 2 Then
If Len(Me.ipnumber) > 5 Then
MsgBox "Numero no encontrado" & Chr(13) & " … es mayor de 5 digitos"
Else
Sheets("portal").Range("E1001").Select
[E:F].Find(What:=ipnumber, After:=ActiveCell, LookIn:=xlFormulas, lookat:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
'----------
If Err.Number <> 0 Then
continuar = MsgBox("Este número no existe..." & vbNewLine & _
"Adelante...? ", vbYesNo)
If continuar = vbNo Then Exit Sub
Err.Number = 0
End If
'----------
If ActiveCell.Offset(0, 1) = "" Then
ActiveCell.Offset(0, 1) = Me.Computadora.value
Else
Call sonar
continuar = MsgBox("Tarjeta ya Modificada" & vbNewLine & _
"Deseas modificarla ? ", vbYesNo) 'En esta ventana debe visualizarse el dato encontrado
If continuar = vbNo Then  'vbYes Then
Else
ActiveCell.Offset(0, 1) = Me.Computadora.value
End If
'      End If
'----------
End If
command1.Set Focus
End If
End If
'End If
If Range("Q3") = 3 Then
…
…
End sub