vb基本语法有关问题

vb基本语法问题
Me.Invoke(New EventHandler(AddressOf() Do
  txtCode.Text = msg.ToString()
  End Sub))

这个代码有什么问题吗
望高手指点

[解决办法]
你这个是不是c#直接通过那个网站转换过来的？
[解决办法]

VB.NET code

Me.Invoke(Sub(msg) txtCode.Text = msg, "123")
[解决办法]
VB.NET code
 Private Delegate Sub InvokeDelegate(myString As String)    Private Sub ChangeText(myString As String)        txtCode.Text = myString    End Sub    Private Sub GetData(msg As String)        Try            Me.Invoke(New InvokeDelegate(AddressOf ChangeText), msg)        Catch ex As Exception            MessageBox.Show("异常，请重试！！！")        End Try    End Sub