新建From1（窗体），新建Command1（按钮CommandButton），代码：

运行结果：

可以不管大小写地比较，不用lcase函数也行。