您會在起始宣告語句 （或Sub） 和結束宣告語句 （FunctionEnd Sub或End Function） 之間括住程式。 所有程式的程式代碼都位於這些語句之間。
程式不能包含另一個程式，因此其起始和結束語句必須位於任何其他程式之外。
如果您有在不同位置執行相同工作的程式碼，您可以撰寫工作一次做為程式，然後從程式代碼中的不同位置呼叫它。
建立不會傳回值的程式
在任何其他程序之外，使用
Sub語句，後面接著End Sub語句。在
Sub語句中，請在Sub關鍵詞後加上程式的名稱，然後以括號括起參數清單。請將程式的程式代碼語句放置在
Sub和End Sub語句之間。
建立傳回值的程式
在任何其他程序之外，使用
Function語句，後面接著End Function語句。在
Function語句中，Function關鍵字後面接著程式的名稱，接著是括弧中的參數清單，然後是As指定傳回值資料類型的子句。請將程式的程式代碼語句放置在
Function和End Function語句之間。使用
Return語句將值返回給呼叫端程式碼。
若要將新程序與舊的、重複的程式碼區塊連接
請務必在舊程式代碼可存取它的位置定義新的程式。
在舊的重複程式代碼區塊中，以呼叫
Sub或Function程式的單一語句取代執行重複工作的 語句。如果您的程式是
Function傳回值的 ，請確定您的呼叫語句會執行具有傳回值的動作，例如將它儲存在變數中，否則值將會遺失。
範例
下列 Function 步驟會計算右三角形的最長側邊或斜邊，前提是已知其他兩邊的值：
Function Hypotenuse(side1 As Double, side2 As Double) As Double
Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function
