VB错误: 错误的参数号或无效的属性赋值

Private Sub Command1_Click()

If Text1.Text = "" Then

   MsgBox "请输入IP地址!"
   
   Exit Sub
   
ElseIf Text2.Text = "" Then

   MsgBox "请输入监听端口!"
   
   Exit Sub
   
End If

FindFreeSock (Listen)

Listen(SockIndex).RemoteHostIP = Text1.Text-----------------------------------此行出错

Listen(SockIndex).RemotePort = Text2.Text

Listen(SockIndex).Listen

Picture1.Print "正在监听,请稍后......"

End Sub