仿照书上的例子做的练习，不能正常运行，请帮我看一下代码哪里出错了？

仿照书上的例子做的练习，不能正常运行，请帮我看一下下面的代码哪里出错了？
            Dim Uname As String = Trim(TxtBoxUserName.Text)