Check for længe i telefonnr

Jeg har denne funktion der checker om et tal er et helt tal. Hvordan får jeg også funktioen til at checke om tallet er af længden 8, det skal bruges som en check for om det er et gyldigt telefonnr.

Function isHeltal(str)
    Dim regex
    Set regex = New RegExp
    regex.Pattern = "^[0-9]+$"
    isHeltal = regex.Test(str)
End Function