'雇用保険給与計算システム設定
Option Explicit

Public Sub SetKoyou()

    If gstrName = "" Then GoTo ErrorProc
    
    'フォームの起動
    frmKoyou.Show
    
    Exit Sub
    
ErrorProc:

    MsgBox "データファイルが選択されていません。" & vbCrLf & "データファイルを選択して下さい。", 48 + 0, "給与計算システム"

End Sub