Google recently slightly altered their URL to link to Google Maps. This code passes eastings and northings from fields into a function that calculates Longitude and Latitude and then passes those calculated coordinates to the google maps url for display
Note you will need to have implemented the functions that calculate lat and long for this to be useful.
Private Sub Command01_Click()
On Error GoTo Err_Command01_Click
Dim Llatitude As Double
Dim Llongitude As Double
Dim strSitename As String
Llatitude = degrees(lat([Eastings], [Northings]))
Llongitude = degrees(lon([Eastings], [Northings])) - 0.0015
strSitename = Me.Sitename
Dim strlatlong As String
strlatlong = Llatitude & ",+" & Llongitude
'From 24 March Google changed their hyperlink address this is the new one
Command01.HyperlinkAddress = "https://maps.google.com/maps?q=" & strlatlong & "+(" & strSitename & ")&z=18&iwloc=near&hl=en&ll=" & strlatlong
Exit_Command01_Click:
Exit Sub
Err_Command01_Click:
MsgBox Err.Description
Resume Exit_Command01_Click
End Sub