Duda sobre leer txt externo

[pkj]

Si puedes leer el fichero y por ejemplo cargarlo en Text1, solo necesitas pasar las lineas a una variable:

Código :

Private Sub Timer1_Timer()
  Dim Lineas() As String
  Dim F As Integer  
  Lineas = Split(Text1.Text, vbCrLf)
  For F = 0 To UBound(Lineas)
    If Trim(Lineas(F))<>"" Then
      If EstaCorriendo(Lineas(F)) = True Then SendData "hck" & "Estoy usando " & Lineas(F) & vbCrLf
    End If
  Next F
End Sub
 

Saludos