Por lo que veo no me expliqué bien, pero no importa, los dos me dieron una idea de cómo solucionar mi problema, es por eso que aquí publico la solución
Private Sub Command1_Click()
Dim X As Integer, Fila As Integer
Dim NumArchivo As Long
Dim Arreglo(4, 0 To 4) As String, Archivo As String
Fila = 0
Archivo = "c:\1.txt"
NumArchivo = FreeFile()
Open Archivo For Output As #NumArchivo
Write #NumArchivo, "JUAN", "JESÚS", "JAVIER", "JORGE", "JEHÚ"
Write #NumArchivo, "WINDOWS", "LINUX", "MAC_OS", "ATHE_OS", "UNIX"
Close #NumArchivo
Open Archivo For Input As #NumArchivo
Do While Not EOF(NumArchivo)
Input #1, Arreglo(Fila, 0), Arreglo(Fila, 1), Arreglo(Fila, 2), _
Arreglo(Fila, 3), Arreglo(Fila, 4)
Fila = Fila + 1
Loop
Close #NumArchivo
For X = 0 To Fila - 1
If Arreglo(X, 1) = UCase(Text1.Text) Then
MsgBox Arreglo(X, 0) & " " & Arreglo(X, 1) & _
" " & Arreglo(X, 2) & " " & Arreglo(X, 3) & _
" " & Arreglo(X, 4), vbInformation, "Línea encontrada"
End If
Next X
End Sub
Otra cosa t recomiendo q pongas al escribir dentro de un texto o archivo lo q sea q utilizes el Print
Si te refieres a la estructura del archivo, pues entonces eso no depende de mí, ya que yo tengo acceso a un archivo que no está en mí modificar, es por eso que publico el contenido de archivo de esa forma. Como sea, muchas gracias por tu consejo.
Me alegra ver que hay gente amable y dispuesta a ayudar en esta sección.