Private Sub Command10_Click()
Dim param As String
Dim strFriends( 6 ) As String
      
strFriends( 0 ) = "Bianca"
strFriends( 1 ) = "Jeana"
strFriends( 2 ) = "Sam"
strFriends( 3 ) = "Jenna"
strFriends( 4 ) = "Erin"
strFriends( 5 ) = "Carolyn"
strFriends( 6 ) = "Kate"

o.SendData strFriends & vbCrLf ?????????? Не знаю ...

End Sub

strFriends( 0 ) = "Bianca,Test1,Test2,Тест3"
strFriends( 1 ) = "Jeana,Test1,Test2,Тест3"

Option Explicit
Dim D2Array( 5 ,  5 ) As Byte

Private Declare Sub CopyMemory Lib "KERNEL32" _
                    Alias "RtlMoveMemory" (hpvDest As Any, _
                                           hpvSource As Any, _
                                           ByVal cbCopy As Long)

Private Sub tcpClient_Connect()
  ' send the array
  Dim Arry( 35 ) As Byte
  
  CopyMemory Arry( 0 ), D2Array( 0 ,  0 ), UBound(Arry) +  1 
  ' tcpClient.SendData D2Array ' only sends 1st column
  tcpClient.SendData Arry ' sends all data
  
End Sub