If varRegKey = "" Then Return False
varRegKey = varRegKey.Replace("-", "")
varRegKey = varRegKey.Replace(" ", "")
Matcher1 = Regex.Matcher("\d+", varRegKey)
Do While Matcher1.Find
Matchcount = Len(Matcher1.Match)
Loop
If Matchcount <> Len(varRegKey) Then Return False