Script einbinden

Hallo zusammen,

Bin relativ neu in der Arc GIS 8 Welt, und hab bisher nur avenue scripts eingelesen. Ich habe nun ein VB script, dass mir per Hyperlink das entsprechende Access formular oeffnen soll, wenn ich auf den entsprechenden Punkt klicke. Wie binde ich denn folgendes script als Macro in VB ein, und wie setz ich da nen Hyperlinkk drauf, mit anderen Documenten hab ich keine Schwierigkeiten, nur mit diesem script... :-(( Danke fuer die HIlfe!

Hier das script:

Attribute VB_Name = "GOTOaccess"

Sub AccessConnect(pLink, pLayer)
On Error GoTo eh:
'get the value from the hyperlinked field and filter an Access form
'based on that value

'to use, import this module into Arcmap
'set up the hotlink of the layer to link to and
'enter this module as the source to run on the hotlink
'make sure to have the correct hotlink field selected

Dim pHyperlink As IHyperlink
Set pHyperlink = pLink
Dim pFLayer As IFeatureLayer
Set pFLayer = pLayer
Dim thestring As String
thestring = pHyperlink.Link
'connect to the open application of Access, must be open in this case
Dim Accapp As Access.Application
Set Accapp = GetObject(, "Access.Application")
'activate Access
AppActivate "Microsoft Access"
'open the data form and filter on the selected hotlink value
Accapp.CurrentProject.Application.DoCmd.OpenForm "Pod_Entry_Form", acNormal, , "[index]=" & thestring
Exit Sub
eh:
'will have to build on the error trapping
MsgBox "The POD database must be open"

End Sub