issues setting up catch all for exchange 2003

Hi

I am having a small prob with setting up catch all with exchange.
I have created scripts, however when i the program was intiated emails stopped being delivered to mailboxes.

********************
'
'  Change any @example.com recipient(s) to bob@company.com
'
Function FixupRecipList(strList)
  On Error Resume Next
  Dim strFixedList
  Dim nDomainPart
  Dim nNamePart
  Dim nNextAddress
  strFixedList = strList
  While (InStr(LCase(strFixedList),"@g******a.ie"))
    nDomainPart = InStr(LCase(strFixedList),"@g******a.ie")
    nNamePart = InStrRev(strFixedList,";",nDomainPart)
    nNextAddress = InStr(nDomainPart+Len("@g******a.ie;"),strFixedList,"SMTP:")
    If (0 = nNamePart) Then
      ' @example.com is first name in recipient list
      If (0 = nNextAddress) Then
        ' @example.com is the last name in the recipient list
        strFixedList = "SMTP:g*******mail@gmail.com;"
      Else
        ' @example.com is not the last name in the recipient list
        strFixedList = "SMTP:g****mail@gmail.com;" & Right(strFixedList,Len(strFixedList)-nNextAddress+1)
      End If
    Else
      ' @example.com is not the first name in recipient list
      If (0 = nNextAddress) Then
        ' @example.com is the last name in the recipient list
        strFixedList = Left(strFixedList,nNamePart) & "SMTP:g***mail@gmail.com;"
      Else
        ' @example.com is not the last name in the recipient list
        strFixedList = Left(strFixedList,nNamePart) & "SMTP:g****mail@gmail.com;" & Right(strFixedList,Len(strFixedList)-nNextAddress+1)
      End If
    End If
  Wend
*********************************

I added in emails aboce, it mentioned that delivery address needs to be differnent domain that internal domain.  So I created a gmail account for this, and forwarded that back to internal mailbox.
Is there something i am missing?
Thanks
STephen