윈 도 우 Windows PE 에서 VB6 프로그램밍 해보신분 있으신가요? (소스코드 포함)

여기 윈포에서 몇 몇 분들께 도움을 받아서 수십번 시도 해보았지만, 하다하다 안되서 제가 VB6으로 프로그램을 만들었습니다.

제가 USB 부팅을 이용해서 PE를 부팅을 하는데, 하고자 하는것은...

PC에 이 USB 하나만 꽂았다고 가정하고, 이 드라이브 명은 무조건 "K:"로 되어야 한다는 것입니다.

(실제 설치된 HDD수량에 상관없이...)

그래서 PE는 닷넷 환경이 지원이 불가하여, VB6로 프로그래밍을 했습니다.

그런데...

제 PC 즉, Windows 환경에서 잘 되는데, PE에서는 될때도 있고 안될때도 있습니다. 아주 미쳐버리겠습니다. ㅠㅠ

그래서 학교때 교양으로 배웠던 프로그램을 과정과 케케묵은 프로그래밍을 책으로 아래와 같이 코드를 만들었습니다.

    Dim Read_Line1 As String '파일을 읽어서 첫 째줄을 저장한다.
    Dim Read_Line2 As String 'Read_Line1에서 읽은것과 Carriage Return, Line Feed을 같이 저장한다.
       
        Open "X:\VLASSIGN\DISKPART\volume_list.txt" For Input As #1 'Volume_List.txt 파일을 연다.

        Do While Not EOF(1) '파일이 끝이 아닐때 까지 반복한다.
            Line Input #1, Read_Line1
            Read_Line2 = Read_Line1 & vbCrLf
           
            Dim Volume As String 'USB 볼륨명 저장할 변수
            Dim Removable As String 'USB는 Removable 이라는 Type명을 가지므로 이것을 검색하여 저장할 변수
                Volume = Mid(Read_Line2, 3, 8) 'Volume 글자를 저장한다.
                Removable = Mid(Read_Line2, 40, 9) 'Removable 글자를 저장한다.
               
            If Removable = "Removable" Then '만약에 Removable 글자가 있으면,
                Open "X:\VLASSIGN\DISKPART\volume_change_script.txt" For Output As #2 '파일생성

                여기서 파일이 생성이 되지 않습니다. 위 조건은 완벽히 맞습니다.
                    Print #2, "Sel " & Volume
                    Print #2, "Assign Letter=K"
                    Print #2, "List Volume"
                    Print #2, "Exit"
                Close #2 '파일을 닫는다.
                Close #1
               
                End
            End If
        Loop

VB6 좀 아시는 분들 댓글 좀 부탁드립니다. 도와주세요 ㅠㅠ