Wie per VBA Werte aus einer Textdatei auslesen?

[AleXSR700]

Hallo zusammen,

ich stehe aktuell vor dem Problem, dass ich gerne per VBA Informationen aus einer Textdatei auslesen will.
Dabei soll quasi folgendes gemacht werden:

1. Prüfen, ob eine Datei vorhanden ist, die mit den Zeichen beginnt, die in Zelle A1 stehen (bspw. "23-07-2019"). Dabei soll die Datei nur mit exakt diesen Zeichen beginnen und muss am Ende dieser Zeichen einen Unterstrich haben (z. B. "23-07-2019_Lesen" sollte er auswerten aber "23-07-2019x" sollte er nicht auslesen, weil kein "_" vorhanden ist)
2. Prüfen, ob in der ersten Zeile der Datei steht "Prüf-Nr. " und dann Zelle A1. Er soll also noch mal innerhalb der Datei prüfen, ob es wirklich die richtige Datei ist und nicht nur der Dateiname stimmt.
3. Ist diese Datei vorhanden und hat die korrekte erste Zeile, dann soll er die Zeile suchen, die mit dem Text aus Zelle A2 beginnt (bspw. "WertA2")
4. Ist keine solche Zeile vorhanden, dann soll der in die Zelle B2 nichts eintragen. Ist sie aber vorhanden, dann soll der Wert nach dem ersten ";" eingetragen werden

Beispieldatei wäre:

Code:

Prüf-Nr. 23-07-2019
Be;0.00E+00;;3.33E+04;1.66E+04;Bq/g;19.06.2019;;;;;
Ka;0.00E+00;;6.05E+01;2.99E+01;Bq/g;19.06.2019;;;;;
Kc;0.00E+00;;3.18E+02;1.56E+02;Bq/g;19.06.2019;;;;;
Sc;5.44E+03;;4.79E+02;2.38E+02;Bq/g;19.06.2019;;;;;
Crf;0.00E+00;;2.23E+05;1.11E+05;Bq/g;19.06.2019;;;;;

Hier wäre 

Code:

Zelle A1 = 23-07-2019
Zelle A2 = Sc

und entsprechend müsste am Ende in der Zelle B2 stehen "5.44E+03". Wobei es noch schön wäre, wenn er den Dezimalpunkt durch ein Dezimalkomma ersetzen würde.

Wäre das problemlos machbar? Ich konnte leider kein Beispiel finden, dass ich derart anpassen konnte, da doch einige Bedingungen abzuprüfen sind.