netstream spørgsmål eller HJÆLP

Prøv lige at se denne kode
-----
Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Imports System.Text
Imports Microsoft.VisualBasic
Imports System.Runtime.Remoting.Messaging
Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer. 
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(560, 261)
        Me.Name = "Form1"
        Me.Text = "Form1"

    End Sub

#End Region
 
    Private mTCPClient As New TcpClient
    Private mNetStream As NetworkStream
    Private mBytes() As Byte
    Private intBytesRec As Int64
    Private mDataStream As NetworkStream
    Private mTCPData As New TcpClient

    Private mServerAddr As IPAddress
    Private mFTPPort As Int32 = 21
    Private mConnected As Boolean = False
    Private mFTPResponse As String

    Public Event ServerReplied(ByVal ServerReply As String)
    Public Event ServerCalled(ByVal CallMsg As String)
    Public Event ErrorOccured(ByVal ErrorCode As Integer, ByVal ErrMessage As String)
    Public Event Transferring(ByVal intTransferred As Integer, ByVal intTotalFile As Integer)


   



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strTemp As String
        Dim code As String

        Dim priSM As New MemoryStream
        Dim intport As Int32


        mTCPClient.Connect("server", 21)
        mNetStream = mTCPClient.GetStream()


        'strTemp = GetResponse()
        ' code = strTemp.Substring(0, 4)


        strTemp = "USER tweakup" & vbCrLf
        mBytes = Encoding.ASCII.GetBytes(strTemp)
        mNetStream.Write(mBytes, 0, mBytes.Length)

        strTemp = "PASS tweakup" & vbCrLf
        mBytes = Encoding.ASCII.GetBytes(strTemp)
        mNetStream.Write(mBytes, 0, mBytes.Length)

        strTemp = "PASV" & vbCrLf
        mBytes = Encoding.ASCII.GetBytes(strTemp)
        mNetStream.Write(mBytes, 0, mBytes.Length)

'HER ER PROBLEMET
        strTemp = "NLST" & vbCrLf
        mBytes = Encoding.ASCII.GetBytes(strTemp)
        mNetStream.Write(mBytes, 0, mBytes.Length)
        strTemp = GetResponse()




    End Sub




    Private Function GetResponse() As String
        Dim strTemp As String
        Do
            ReDim mBytes(mTCPClient.ReceiveBufferSize)
            intBytesRec = mNetStream.Read(mBytes, 0, CInt(mTCPClient.ReceiveBufferSize))
            strTemp = strTemp & Encoding.ASCII.GetString(mBytes, 0, intBytesRec)
        Loop While mNetStream.DataAvailable
        mFTPResponse = mFTPResponse & strTemp
        GetResponse = strTemp
    End Function


End Class
----


Det virker findt, men der hvor jeg har skrevet 'HER ER PROBLEMET
er der et problem :)

Jeg kan ikke læse output fra min NLST . hvorfor ik? eller hvad gør jeg galt?