vb.net事件基础有关问题

vb.net事件基础问题
下面代码是完整的，可以复制到工程即可运行。windows窗体上添加一个文本框就可以。
运行时问题来了很多，

Public Class Class1
    Public Event PropertyChanged(ByVal str1 As String)
    Public WriteOnly Property NewProperty() As TextBox
        'Get
        '    Return newPropertyValue
        'End Get
        Set(ByVal value As TextBox)

            If value.TextLength > 0 Then
                RaiseEvent PropertyChanged(value.Text)
            End If

        End Set
    End Property

    Sub MySub(ByVal str1 As String) Handles Me.PropertyChanged
        MsgBox(str1)
    End Sub


End Class

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim cla1 As New Class1
        cla1.NewProperty = Me.TextBox1
        Dim string1 As String = String.Empty
       
       cla1.MySub() '这里MySub要输入什么参数呢，怎么msgbox两次显示呢


    End Sub
End Class

------解决方案--------------------
cla1.MySub() '这里MySub要输入什么参数呢，怎么msgbox两次显示呢 
此句应该注意掉，因为为事件响应代码，无需调用。

Sub MySub(ByVal str1 As String) Handles Me.PropertyChanged         
MsgBox(str1)     
End Sub

为方便观察建议将以上方法MsgBox(str1) 改为debug.print(Str1 & vbtab & now)
手打代码有什么小问题自己调整下


cla1.MySub() 实在想要调用
cla1.MySub("TestStr") 方式调用

这样的代码应该算是最初级的学习代码了~~~基础多打打再从最简单学习吧