熟悉SendMessage的请进

[hesicong]

Dim TargetLen As Integer = SendMessage(hPhoneNumber, WM_GETTEXTLENGTH, 0&, 0&)
Dim TempString As String
TempString = Space$(TargetLen + 1)
r = SendMessage(hPhoneNumber, WM_GETTEXT, TargetLen, TempString$)
我用这段代码想取得hPhoneNumber(类名Edit)中的内容，vb6中顺利通过，可是vb.net中死活不行，提示
未处理的“System.NullReferenceException”类型的异常出现在 test.exe 中。

其他信息: 未将对象引用设置到对象的实例。

怎么办啊……望指教