vb.net参数化属性有关问题

vb.net参数化属性问题
Models.vb
========
Public Class AddPhone
    Public Property Phones As New Hashtable

    Default Public Property Phone(ByVal location As String) As String
        Get
            Return CStr(Phones.Item(location))
        End Get
        Set(value As String)
            If Phones.ContainsKey(location) Then
                Phones.Item(location) = value
            Else
                Phones.Add(location, value)
            End If
        End Set
    End Property
End Class

User.aspx（MVC强类型视图）
========
<%=Html.TextBoxFor(Function(m) m.Phone("aaa"))%>
<%=Html.ValidationMessageFor(Function(m) m.Phone("aaa"))%>

Sql.vb
========
Dim ItemName As String = AddPhone.Phones("aaa")

为什么ItemName获取不到值？在视图页里的input里输入任何东西最后获取到的都是空。
希望高手解答一下，不胜感激。



------解决思路----------------------
不用代码证明，你空口保证赋值了。
那么也可以空口回答你：不可能取不到值。