¿Sacar la fecha de una página web?

Que tal requiero sacar la fecha de una página web ya que actualmente comparto un archivo de excel con macro pero no requiero que la macro tome la fecha de la pc si no de una página web esto es lo que he sacado pero me marca un error al final si me pueden apoyar en terminarlo se los agradecería:

Sub Fecha_actual()
Dim FA As String, Pos As Long
With CreateObject("internetexplorer.application")
.Navigate URL:="https://www.timegenie.com.mx/city.time/mxmex"
Do While .Busy Or .ReadyState <> 2
DoEvents
Loop
FA = .Document.Body.InnerText
.Quit
End With
Pos = InStr(FA, "div.showtime") - 8
[a1] = "Fecha actual:"
[a2] = Mid(FA, Pos, 8)
End Sub