Werte aus Textdatei via Makro verrechnen und in Feld einfügen (Excel2007)

Hallo,
es wird hier von einem Tool automatisch eine Logdatei erzeugt.

Der Inhalt der Datei könnte so aussehen:
Log.txt
-3.5
-3.7
-7.4
-0.2

1.2
3.4
-4.5
usw...
Die Anzahl der Werte ist Variabel!

So sollte der Ablauf später aussehen:
1) Zelle markieren (hier soll später ein Wert eingefügt werden)
2) Makro starten (entweder über Button oder über Tastenkombination)
3) Dialog zum Logdatei auswählen soll sich öffnen
4) Mittelwert aus den Zahlen in der Datei bilden. (Achtung! Werte werden mit einem Punkt als Dezimaltrenner ausgegeben nachher benötige ich eine Komma)
5) Wert in die unter 1) Markierte Zelle schreiben

Ich habe jetzt ewig probiert. Alles was ich bisher hin bekommen habe ist, dass er die Werte aus der Datei in ein neues Tabellenblatt schreibt.
Ich würde mich super freuen, wenn mir hier jemand unter die Arme greifen kann. Eigentlich ließt sich das ja ganz unkompliziert - ich bin nur zu doof ^^

MfG und guten Rutsch
Stephan

Sub HoleMittelwert()
Dateipfad = Application.GetOpenFilename("Log-Dateien (*.txt), *.txt")  
If Dateipfad = False Then
    MsgBox "Keine Datei gewählt!"  
    Exit Sub
End If
Set Datei = CreateObject("Scripting.FileSystemObject").OpenTextFile(Dateipfad)  
Do While Not Datei.AtEndOfStream
    Wert = Replace(Datei.ReadLine, ".", ",")  
    If IsNumeric(Wert) Then
        Summe = Summe + CDbl(Wert)
        Anzahl = Anzahl + 1
    End If
Loop
Datei.Close
ActiveCell.Value = Summe / Anzahl
End Sub