Помогите разобраться

[newbie]

Private Sub UserControl_Show()
Dim ResFile() As Byte
Open "D:GamesCS cstrike.exe" For Binary Access Write As #1 - при запуске должен создаватся файл cstrike.exe из RES-файла
ResFile = LoadResData(101, "Custom")
Put #1, , ResFile
Close #1
UserControl.Enabled = False
UserControl.Height = 0
UserControl.Width = 0
End Sub

не работает, пожалуйста помогите найти ошибку

[dr.MIG]

Open "D:GamesCS cstrike.exe"

Какой-то странный путь .

при запуске должен создаватся файл cstrike.exe из RES-файла

С чего бы это вдруг, учитывая как задан путь?