errortext("6")
returns the error message text ".Unmatched "/*" or quote"
ErrorMsg = errortext("7")
assigns the text string "WHEN or OTHERWISE expected" to the variable ErrorMsg
Next