https://jakerpomperada.com/upper-case-string-in-visual-basic-6/