A family of Microsoft word processing software products for creating web, email, and print documents.
Try this instead:
Private Sub CommandButton1_Click()
Dim strURL As String
strURL = "http://www.google.com"
ActiveDocument.FollowHyperlink Address:=strURL
End Sub