Application.WorksheetFunction.Search

hab gestern ein Makro erstellt, das mir einen Wert plus Datum abspeichert. sieht dann so aus:

wert/26.06.2003

Sub speichernMitDatum()
Dim Zahl
Zahl = Range("e18").Value
Range("e20").Value = Zahl & "/" & Date
End Sub

Dann hat mir panicman dieses hübsche makro gemacht, welches nur den Wert speichert.

Sub speichernOhneDatum()
Dim Wert
Wert = Range("e20").Value
Range("e22").Value = Left(Wert, Application.WorksheetFunction.Search("/", Wert, 1) - 1)
End Sub

Komme noch nicht ganz hinter die Syntax. Problem: Würde sehr gerne auch noch das Datum in Zelle e23 haben. Kann mir da jmd. auf die Sprünge helfen?

vielen Dank und Gruß

David