Q: Create File in windows-directory

A: make use of the API call GetWindowsDirectory.
Declare Function GetWindowsDirectory Lib "kernel32" Alias _ "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) _ As Long 'make on the same module-form a global variable Global windir$ put in your form_load event the next code: Dim Buffer$, res& ' Get windowsdirectory buffer$ = Space(255) ret& = GetWindowsDirectory(buffer, 255) windir$ = Left$(buffer$, ret&) That's all to do: in the variable windir$ is now the local windows-directory. So to open a file you do: Open windir$ & "\networks.txt" For Output as #1 Return