desktop application Application.StartupPath & “..\..\..\Images”

Dim path As String = Application.StartupPath & “..\..\..\Images”
        Dim oFile As System.IO.File
        Dim oWrite As System.IO.StreamWriter
        oWrite = IO.File.CreateText(path & “\sample1.txt”)