帮小弟我看看这个有关问题！

帮我看看这个问题！！！！！！！！
我建了一个class类：

Private   name   As   String

        Public   Property   nm()   As   String
                Get
                        Return   Me.name
                End   Get
                Set(ByVal   value   As   String)
                        Try
                                If   Me.name   =   value   <=   10   And   Me.name   =   value   > =   1   Then
                                        Me.name   =   value
                                End   If
                        Catch   ex   As   Exception
                                MessageBox.Show(ex.Message)
                        End   Try
                End   Set
        End   Property


我用下面的语句实现赋值和输出：

  Private   Sub   Button4_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   Button4.Click
                Dim   nam   As   New   Class1
                nam.nm   =   4
                MessageBox.Show(nam.nm)
        End   Sub


我怎么点击按钮的时候什么都不出而且提示我只能再1到10之间呀，怎么解决呀！！！

[解决办法]
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim nam As New Class1
nam.nm = "4 " ///////////////////加 " "
MessageBox.Show(nam.nm)
End Sub