Speichern Unter - Datum Formatieren

Sub Save()
Set datum = Sheets("Data").Range("B3")
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & datum & ".xls"
End Sub

Funktioniert soweit alles, allerdings speichert er das Datum nicht unter dem richtigen Format ab (brauche das Format "JJJJ.M.T;@", das ist das gleiche Format wie in der betreffenden Zelle (B3).
Bsp: In der Zelle ist eingegeben 31.05.2008, angezeigt wird 2008.05.31, die Datei soll unter 2008.05.31 abgespeichert werden, im Moment wird sie unter 31.05.2008 abgespeichert.
Gibt es eine Möglichkeit das Format festzulegen (oder das er den Wert der Zelle nimmt und nicht den eingegeben Text)?
Schonmal vielen Dank!