メソッドの宣言

Public Sub DoSomething()

    Debug.WriteLine("DoSomethingを実行します。")
    
End Sub

→ Debug.WriteLineが表示される場所

メモ：C# や Java などの言語で言うところの void で宣言されているメソッドです。

Public Function DoSomething() As Integer

    Return 627
    
End Function

Public Sub DoSomething(arg1 As String)

    Debug.WriteLine($"受け取った引数は {arg1} です。")
    'Debug.WriteLine("受け取った引数は " & arg1 & " です。") '←VB2013以前の場合
    
End Sub

→ Debug.WriteLineが表示される場所

Public Sub DoSomething(arg1 As String, arg2 As Integer)

    Debug.WriteLine($"受け取った引数は {arg1} と {arg2} です。")
    'Debug.WriteLine("受け取った引数は " & arg1 & " と " & arg2 & " です。") '←VB2013以前の場合
    
End Sub

→ Debug.WriteLineが表示される場所

Public Overloads Sub SameName()

    '内容省略
    
End Sub

Public Overloads Sub SameName(arg1 As String)

    '内容省略
    
End Sub

Public Overloads Sub SameName(arg1 As Integer)

    '内容省略
    
End Sub

メモ：Overloads は省略可能ですが、親クラスでも同じ名前のメソッドがある場合に省略すると Shadows の効果が優先されます。そのため、付けておくのが無難です。

メモ：型違いのいろいろな引数に対応する必要がある場合は、型パラメーター(ジェネリック)の使用も検討します。

Public Sub DoSomething(ParamArray args() As Integer)

    Debug.WriteLine($"受け取った引数の数は {args.Length} 個です。")
    'Debug.WriteLine("受け取った引数の数は " & args.Length & " 個です。")'←VB2013以前の場合

    For Each arg As Integer In args
        Debug.WriteLine(arg.ToString())
    Next    
    
End Sub

→ Debug.WriteLineが表示される場所

Public Shared Sub DoSomething()

    Debug.WriteLine("DoSomethingを実行します。")
    
End Sub

→ Debug.WriteLineが表示される場所

Public Sub DoSomething(arg1 As Integer, Optional arg2 As Integer = 0)

    Debug.WriteLine("DoSomethingを実行します。")
    
End Sub

メモ：省略可能な引数に値が渡されたかどうか直接確認する方法はありません。多くの場合既定値にありえない値を設定しておくことで区別できるようにします。

→ Debug.WriteLineが表示される場所

Public Sub DoSomething(Of T)(arg1 As T)

    Debug.WriteLine($"受け取った引数は {arg1} です。型は {GetType(T).FullName} です。")
    'Debug.WriteLine("受け取った引数は " & arg1.ToString() & " です。型は " & GetType(T).FullName & " です。") '←VB2013以前の場合
    
End Sub

→ Debug.WriteLineが表示される場所

Public Function DoSomething(Of T1, T2)(arg1 As T1) As T2

    Debug.WriteLine($"受け取った引数は {arg1} です。")
    'Debug.WriteLine("受け取った引数は " & arg1.ToString() & " です。") '←VB2013以前の場合
  
    Return Nothing
  
End Function

→ Debug.WriteLineが表示される場所

Public MustOverride Function DoSomething(arg1 As String) As Long

メモ：抽象メソッドは抽象クラス(MustInheritで宣言されたクラス)内でのみ宣言できます。

メモ：仮想関数はキーワード Overridable で宣言できます。

Public Sub DoSomething(ByRef arg1 As String)

    Debug.WriteLine($"受け取った引数は {arg1} です。")
    'Debug.WriteLine("受け取った引数は " & arg1 & " です。") '←VB2013以前の場合

    arg1 = "引数の値を書き換えます。" '参照渡しなので呼び出し元に影響します。
    
End Sub

→ Debug.WriteLineが表示される場所

メモ：参照渡しは計画的にご利用ください。→ 初級講座[改訂版] 第２７回　引数の参照渡しと値渡し 参照

メモ：C# にある in と out はありません。 VBのByRef は C# の ref とほぼ同等です。

Public Function DoSomething() As (Integer, String)

    Return (627, "徳川家康")
    
End Function

呼び出し例

Dim result = DoSomething()
Debug.WriteLine(result.Item1) '627 と出力されます。
Debug.WriteLine(result.Item2) '徳川家康 と出力されます。

→ Debug.WriteLineが表示される場所

Public Function DoSomething() As (TotalCount As Integer, CaptainName As String)

    Return (627, "徳川家康")
    
End Function

呼び出し例

Dim result = DoSomething()
Debug.WriteLine(result.TotalCount) '627 と出力されます。
Debug.WriteLine(result.CaptainName) '徳川家康 と出力されます。

→ Debug.WriteLineが表示される場所

Public Async Sub AsyncDoSomething()

    Await Task.Run(Sub()
                       Debug.WriteLine("ここに記述した処理は呼び出し元とは非同期で実行されます。")
                   End Sub)

End Sub

→ Debug.WriteLineが表示される場所

メモ：第２９回　アプリケーションのライフサイクルの基本 参照

Public Iterator Function GetNumbers() As IEnumerable(Of Integer)

    Yield 6
    Yield 2
    Yield 7

End Function

呼び出し例

For Each number As Integer In GetNumbers()
    Debug.WriteLine(number)
Next 

「6」「2」「7」と３行出力されます。→ Debug.WriteLineが表示される場所

参考

Yield ステートメント - Visual Basic | Microsoft Docs

VBでは式形式でメソッドを定義することはできません。

Dim add = Function(x As Integer, y As Integer) x + y

Debug.WriteLine(add(2, 3)) '5 と出力されます。
Debug.WriteLine(add(8, 10)) '18 と出力されます。

→ Debug.WriteLineが表示される場所

メモ：値を返さない場合 Sub で定義できます。

複数行の処理を記述することもできます。

Dim trimNull = Function(value As String) As String
                   If value Is Nothing Then
                       Return ""
                   End If
                   Return value
               End Function

Debug.WriteLine(trimNull("Hello")) 'Hello と出力されます。

→ Debug.WriteLineが表示される場所

VBにはローカル関数は存在しません。

一番似ている機能は上掲の ラムダ式によるローカルの関数 です。