' 引数を指定しなかった場合 Private Sub LoadProblem() Dim fPath As String = My.Application.Info.DirectoryPath & "\test.eng" Me.LoadProblem(fPath) End Sub ' 引数を指定した場合 Private Sub LoadProblem(ByVal fPath As String) ' 省略 End Sub