Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 仕様Load("ABC") End Sub Public Sub 仕様Load(ByVal FileName As String) Dim test As String = FileName End Sub End Class