Hjælp til reg.exp

Jeg har følgende 2 funktioner:

' *************************************
' VALIDER EMAIL
' *************************************
Function MailOK(Streng)
    Dim MailReg
    Set MailReg = New RegExp
    MailReg.IgnoreCase = True
    MailReg.Pattern = "^[a-z0-9\.\-\_]+\@[a-z0-9\.\-]+\.[a-z]{2,4}$"
    MailOK = MailReg.Test(Streng)
End Function

' *************************************
' VALIDER TELEFON
' *************************************
Function TelefonOK(Streng)
    Dim TelefonReg
    Set TelefonReg = New RegExp
    TelefonReg.IgnoreCase = True
    TelefonReg.Pattern = "/^\d{8}$/"
    TelefonOK = TelefonReg.Test(Streng)
End Function

- som jeg så forsøger at validerer op imod med:

errcode = ""
telefon = replace(request.form("telefon"), "'", "''")
email = replace(request.form("email"), "'", "''")

If Not MailOK(email) then
errcode = errcode & "Den indtastede E-mail er ikke gyldig!"
end if

If Not TelefonOK(telefon) then
errcode = errcode & "Det indtastede telefonnr. er ikke gyldigt!"
end if

Valideringen af email virker ok, men det gør den med telefonnr. ikke. Hvorfor ikke?

/Goose