Imports System Imports System.Windows.Forms Public Class MainClass Shared Sub Main() Dim file_name As String = Application.StartupPath file_name = file_name.Substring(0, file_name.LastIndexOf("\")) file_name = file_name.Substring(0, file_name.LastIndexOf("\")) file_name &= "\test.vb" Console.WriteLine( file_name) End Sub End Class