Attempting to remove the "As Of : " part of "As Of : 07/31/2015" and convert the remaining text into a date. So far I have:

```
Sub FasFormat()
Dim period As Long
    period = Mid([B4], 8, 10)
    period.Value = CDate(period)
    [B4] = period
End Sub

```

But I get an invalid qualifier error. Drawing a serious blank