Return Array from Class

How do I return an array from a class??

For example I have the following:

Code:

---

Public Function GetMessages() AS String
Dim sMsgs(2000) as string

    For J = 1 to 2000
          sMsgs(j) = winsock1.getdata~~~~
    Next J

End function

---

How do I return all 2000 sMsgs?

Thanks!!!

Quote:

---

Public Function GetMessages() AS String
Dim sMsgs(2000) as string

For J = 1 to 2000
sMsgs(j) = winsock1.getdata~~~~
Next J

End function

---

You can do this:

Code:

---

Public Function GetMessages() AS String()
Dim sMsgs(2000) as string

    For J = 1 to 2000
          sMsgs(j) = winsock1.getdata~~~~
    Next J

GetMessages = sMsgs
End function

---

or

Code:

---

Public Sub GetMessages(ByRef sMsgs() as String)
    For J = 1 to 2000
          sMsgs(j) = winsock1.getdata~~~~
    Next J

End Sub

---

Regards,
TheBao