Sub Main Dim mail$ Do File$ = InputBox$("Enter valid mailname:") loop Until ValidEMailAddress(mail$) Debug.Print mail$ + " is a valid address!"End Sub