' here for a standard ftp pasv reply ...
            Dim parts(5) As Integer
            Dim partcount As Integer = 0
            Dim buf As New System.Text.StringBuilder()
            Dim len As Integer = ipData.Length
            Dim y As Integer
            ' loop through evety char...
            For y = 0 To len - 1
                Dim ch As Char = ipData.Chars(y)
                If Char.IsDigit(ch) = True Then
                    buf.Append(ch)
                End If
                If ch = "," Then
                    parts(partcount) = System.Int32.Parse(buf.ToString())
                    buf.Remove(0, buf.Length)
                    partcount = partcount + 1
                End If
                If partcount = 5 And y = len - 1 Then
                    parts(partcount) = System.Int32.Parse(buf.ToString())
                    buf.Remove(0, buf.Length)
                End If
            Next
            ' put together the ipaddress
            Dim ipAddress As String = parts(0) & "." & parts(1) & "." & parts( _
              2) & "." & parts(3)
            ' calc the port 
            Dim Port As Integer = (parts(4) * 256) + parts(5)
            ' resolve host
            Dim remoteHostEntry As Net.IPHostEntry = Net.Dns.Resolve(ipAddress)
            ' create new endpoint 
            Dim ipe As Net.IPEndPoint = New Net.IPEndPoint( _
              remoteHostEntry.AddressList(0), Port)
            ' set some socketoptions 
            MyBase.SetSocketOption(System.Net.Sockets.SocketOptionLevel.Socket, _
              System.Net.Sockets.SocketOptionName.ReceiveTimeout, timeout)
            MyBase.SetSocketOption(System.Net.Sockets.SocketOptionLevel.Socket, _
            System.Net.Sockets.SocketOptionName.SendTimeout, timeout)
            ' Connect to the endpoint no need for async cause a connection 
            ' should be established allways else u got a wrong reply ...
            MyBase.Connect(ipe)
        Catch e As Exception
            MyBase.Close()
            Throw New ApplicationException("An error occured while creating the" & _
              "PASVDataSocket", e)
        End Try
    End Sub
 
    Public Function getdatastream() As System.Net.Sockets.NetworkStream
        Dim DATA As System.Net.Sockets.Socket = Me
        Return New System.Net.Sockets.NetworkStream(DATA, True)
    End Function
 
 
End Class