HOW TO：建立程序 (Visual Basic)
封入開始宣告陳述式 (Sub 或 Function) 與結束宣告陳述式 (End Sub 或 End Function) 之間的程序。 所有程序的程式碼都位於這些陳述式之間。
程序不可包含另一個程序，因此它的開始和結束陳述式都必須在任何其他程序之外。
如果您的程式碼會在不同位置執行相同工作，則只要將工作撰寫成程序一次，然後就可在程式碼的不同位置呼叫它。
若要建立不傳回值的程序
在任何其他程序之外，使用後面緊接 End Sub 陳述式的 Sub 陳述式。
在 Sub 陳述式中，請在 Sub 關鍵字後面緊接著程序名稱，然後是以括號括住的參數清單。
將程序的程式碼陳述式放在 Sub 與 End Sub 陳述式之間。
若要建立傳回值的程序
在任何其他程序之外，使用後面緊接 End Function 陳述式的 Function 陳述式。
在 Function 陳述式中，請在 Function 關鍵字後面依序緊接著程序名稱、以括號括住的參數清單，然後是指定傳回值之資料型別的 As 子句。
將程序的程式碼陳述式放在 Function 與 End Function 陳述式之間。
使用 Return 陳述式，將值傳回給呼叫程式碼。
若要連接新程序與程式碼的舊重複區塊
確定在舊程式碼可存取的位置定義新程序。
在舊的重複程式碼區塊中，請將執行重複工作的陳述式替換為呼叫 Sub 或 Function 程序的單一陳述式。
如果程序是傳回值的 Function，請確定呼叫陳述式是以傳回的值來執行動作 (例如將它儲存在變數中)，否則該值會遺失。
範例
下列 Function 程序會在已知其他兩邊值的情況下，計算直角三角形的最長邊 (也稱為斜邊)。
Function hypotenuse(ByVal side1 As Single, ByVal side2 As Single) As Single
Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function