try passing the richtextbox ' ByRef ' not ByVal , eg:
VB Code:
  1. Public Function AddChat([COLOR=Red]ByRef[/COLOR] RichTextBox As System.Windows.Forms.RichTextBox, ByVal ParamArray Text() As Object) As Object