Чтобы использовать функцию Excel * в Excel, сначала нужно избавиться от ведущего текста, отмечающего день.Предполагая, что это всегда с запятой и пробелом, вы можете сделать следующее:
Sub changedtformat()
Dim rawdate As String, cleandate As Date, resultdate As Date
rawdate = "Saturday, June 11 2011"
cleandate = Mid(rawdate, InStr(1, rawdate, ",") + 2, Len(rawdate))
resultdate = CDate(cleandate)
MsgBox resultdate
End Sub