Invalid outside procedure

Jeg skal ærligt indrømme at det er noget kode jeg har overtaget. Det "attacker" en dll der bliver refereret til.

Jeg får Invalid outside procedure ved statement "Duration = 30"... Nogen idéer?

--------------------------------------

Dim BeginDate
Dim BeginTime
Dim EndDate
Dim EndTime
Dim Duration
Dim strCameraNum

Duration = 30
BeginDate = "4/25/2007"
BeginTime = "9:00:00 AM"
EndDate = DateAdd("n", Duration, BeginDate)
EndTime = DateAdd("n", Duration, BeginTime)
strCameraNum = "1"

Sub RVCtl_SearchDone()
    Dim i
    Dim camNumber
      If RVCtl.NumSearchResults > 0 Then
          RVCtl.PlaybackFrameRate = 5
          For i = 0 To RVCtl.NumSearchResults - 1
              RVCtl.SearchIndex = i
              camNumber = RVCtl.SearchCamera
              if InStr(strCameraNum, camNumber) Then
                  RVCtl.Play i, 1
              End If
          Next
    End If 
End Sub

Sub Search()
    RVCtl.Disconnect
    RVCtl.Camera = strCameraNum
    RVCtl.Connect
    RVCtl.SearchEx BeginDate, BeginTime, EndDate, EndTime
End Sub

Search()