Code:
Private Sub Command1_Click()
ChDir (Text2.Text)
If Text1.Text <> "dsufhuidsh" Then Text2.Text & "cmd.exe /c Dir /b >> dir.txt" = CMDLINE
Shell CMDLINE
Open "dir.txt" For Input As #1
        Text1.Text = Input(LOF(1), 1)
    Close #1
    Kill "dir.txt"
End Sub

Private Sub Form_Load()
Text2.Text = "C:\Documents and Settings\max.anstey\Desktop\New Folder"
End Sub
Code:
If Text1.Text <> "dsufhuidsh" Then Text2.Text & "cmd.exe /c Dir /b >> dir.txt" = CMDLINE
was an attempt of a workaround to concanenating the two .. things.. to create a customisable directory path as I couldn't do
Code:
Text2.Text & "cmd.exe /c Dir /b >> dir.txt" = CMDLINE
. I'm probably making a rookie mistake and would just like it corrected.

Thanks!!