错误：使用＆连接值后，date时间显示为值（42150.91666666）

我正在研究一个macros，它应该将不同的数据列编译成一个电子邮件主题，下面是列和样本的数据格式：

然而，显示数据和时间的列AD和AI中的单元格在开始时必须包含撇号，否则单元格将只显示时间，如下所示：

更糟的是，没有撇号，vba会提示我错误信息

types不匹配

为了解决这个问题，我把这个连接字符从+改成了& ：

 .Subject = (Sheets("Summary").Cells(i, "AD").Value) & (Sheets("Summary").Cells(i, "AE").Value) & (Sheets("Summary").Cells(i, "AF").Value) & (Sheets("Summary").Cells(i, "AG").Value) & (Sheets("Summary").Cells(i, "AH").Value) & (Sheets("Summary").Cells(i, "AI").Value) 

我确实已经解决了错误信息，但是现在主题显示的date和时间值如42150.91666666。 所以现在我遇到的问题是如何正确显示date和时间，而不添加前面的撇号字符。