Как отвязаться от ссылки на путь к родному жёсткому диску?

Application.StartupPath & "\Съел_медведя.txt"

        ' Чтение из «съел_медведя.txt»
        Dim i As Integer
 
        'Очищаем список:
        Do Until СлврFrm.LV_съел_медведя.Items.Count = 0   'Удаляй по элементу, пока элементов не останется
            СлврFrm.LV_съел_медведя.Items(0).Remove()        'Индекс 0 потому, что при удалении элементы списка сдвигаются вверх
        Loop
        'Загружаем список. System.Text.Encoding.GetEncoding(1251) используется чтобы читалась латиница
        Dim Чтение_съел_медведя As New System.IO.StreamReader _
                             ("C:\Documents and Settings\Федя\Мои документы\Visual Studio 2010\Projects\Бла\Бла\съел_медведя.txt", _
        System.Text.Encoding.GetEncoding(1251))
 
        i = 0
        Do While Чтение_съел_медведя.Peek() <> -1
            'Добавляем в список очередную строку и одновременно заполняем ее первый столбец:
            СлврFrm.LV_съел_медведя.Items.Add(Чтение_съел_медведя.ReadLine)
            СлврFrm.LV_съел_медведя.Items(i).SubItems.Add(Чтение_съел_медведя.ReadLine) 'Заполняем второй столбец очередной строки
            СлврFrm.LV_съел_медведя.Items(i).SubItems.Add(Чтение_съел_медведя.ReadLine) 'Заполняем третий столбец очередной строки
            i = i + 1
        Loop
        Чтение_съел_медведя.Close()

 ' Чтение из «съел_медведя.txt»
        Dim i As Integer
 
        'Очищаем список:
        Do Until СлврFrm.LV_съел_медведя.Items.Count = 0   'Удаляй по элементу, пока элементов не останется
            СлврFrm.LV_съел_медведя.Items(0).Remove()        'Индекс 0 потому, что при удалении элементы списка сдвигаются вверх
        Loop
        'Загружаем список. System.Text.Encoding.GetEncoding(1251) используется чтобы читалась латиница
        Dim Чтение_съел_медведя As New System.IO.StreamReader _
                             (Application.StartupPath &"\съел_медведя.txt", _
        System.Text.Encoding.GetEncoding(1251))
 
        i = 0
        Do While Чтение_съел_медведя.Peek() <> -1
            'Добавляем в список очередную строку и одновременно заполняем ее первый столбец:
            СлврFrm.LV_съел_медведя.Items.Add(Чтение_съел_медведя.ReadLine)
            СлврFrm.LV_съел_медведя.Items(i).SubItems.Add(Чтение_съел_медведя.ReadLine) 'Заполняем второй столбец очередной строки
            СлврFrm.LV_съел_медведя.Items(i).SubItems.Add(Чтение_съел_медведя.ReadLine) 'Заполняем третий столбец очередной строки
            i = i + 1
        Loop
        Чтение_съел_медведя.Close()

Dim Чтение_съел_медведя As New System.IO.StreamReader ("C:\Documents and Settings\Федя\Мои документы\Visual Studio 2010\Projects\Бла\Бла\съел_медведя.txt", System.Text.Encoding.GetEncoding(1251))

Dim Чтение_съел_медведя As New System.IO.StreamReader (Application.StartupPath &"\съел_медведя.txt", System.Text.Encoding.GetEncoding(1251))

Dim Чтение_съел_медведя As New System.IO.StreamReader (Application.StartupPath &"\съел_медведя.txt", System.Text.Encoding.GetEncoding(1251))