Прописать путь к файлу для переносимости приложения - VB

Формулировка задачи:

Ребят, такая задача: имеется путь к файлу: C:\Users\Comp\... Нужно, чтоб не зависимо какое было бы имя у компьютера, программа находила файл по заданной директории

Решение задачи: «Прописать путь к файлу для переносимости приложения»

textual
                            Листинг программы 
                        

                            Private Function ShowOpen() As String
    'Set the structure size
    OFName.lStructSize = Len(OFName)
    'Set the owner window
    OFName.hwndOwner = Me.hwnd
    'Set the application's instance
    OFName.hInstance = App.hInstance
    'Set the filet
    OFName.lpstrFilter = "Text Files (*.txt)" + Chr$(0) + "*.txt" + Chr$(0) + "All Files (*.*)" + Chr$(0) + "*.*" + Chr$(0)
    'Create a buffer
    OFName.lpstrFile = Space$(254)
    'Set the maximum number of chars
    OFName.nMaxFile = 255
    'Create a buffer
    OFName.lpstrFileTitle = Space$(254)
    'Set the maximum number of chars
    OFName.nMaxFileTitle = 255
    'Set the initial directory
    OFName.lpstrInitialDir = "C:\"
    'Set the dialog title
    OFName.lpstrTitle = "Г“ГЄГ*Г¦ГЁГІГҐ ГґГ*Г©Г« Г¤Г«Гї Г®ГІГЄГ°Г»ГІГЁГї"
    'no extra flags
    OFName.flags = 0
 
    'Show the 'Open File'-dialog
    If GetOpenFileName(OFName) Then
        ShowOpen = Trim$(OFName.lpstrFile)
    Else
        ShowOpen = ""
    End If
End Function
                        