Sub Main Dim File$ Do File$ = InputBox$("Enter valid filename:") loop Until Valid(File$) Print File$ + " is valid!"End Sub