Testing vbcode

[vbCode]
Private Function TestVBCode(MyName As String) As Long
'"this is a comment
MsgBox "Hello World"
End Function
[/vbCode]