Dim s As String s = VBA.Format(VBA.Date, "dd.mm.yy") раньше работало выражение как показано ниже s = Format(Date, "dd.mm.yy")