メソッドの書き方

'Subで始まるメソッド
Private Sub SubMethod()

End Sub

'引数の指定も可能
Private Sub SubMethod2(Value1)
    if Value1 = 1 Then

        '戻り値は、下記のようにメソッドに値を代入する
        SubMethod2 = 1

        'Subで始まるメソッドから抜けるときは Exit Sub
        Exit Sub
    End If
End Sub

'Functionで始まるメソッド
Private Function FunctionMethod(Value1)
    if Value1 = 1 Then

        '戻り値は、下記のようにメソッドに値を代入する
        FunctionMethod = 1

        'Functionから始まるメソッドから抜けるときは Exit Function
        Exit Function
    End If
    FunctionMethod = 0
End Function

'戻り値の型を指定することも可能メソッド
Private Function FunctionMethod(Value1) AS Integer
    if Value1 = 1 Then

        '戻り値は、下記のようにメソッドに値を代入する
        FunctionMethod = 1

        'Functionから始まるメソッドから抜けるときは Exit Function
        Exit Function
    End If
    FunctionMethod = 0
End Function