I got an answer from StackOverFlow as following and it worked with, thanks for everyone supports:
<DllImport("ChatLib32.dll", CharSet:=CharSet.Ansi)> _
Private Shared Sub SetupChat(ByVal chatName As String, ByVal asAdvertiser As Boolean, ByRef size As Integer)
End Sub