Public Sub advanceperiod()
        If currentgamerow.period < 3 Then
            currentgamerow.period = currentgamerow.period + 1
...

Public Sub QuickSortArray(ByRef SortArray As Variant, _
                                Optional lngMin As Long = -1, _
                                Optional lngMax As Long = -1, _
...

Public Class Form1

    Dim taxrate As Decimal = 0.025
...

Imports System.IO

Public Class Form3
...

<%@ WebHandler Language="VB" Class="ImageHandler2" %>
Imports System.Web
Imports System.IO
...

Imports TextData
Imports TextData.Objects
Imports System.Web
...

Dim strA, strB, strC

strA=MsgBox("Would you like to install RDIMS", 4)
...

' This procedure creates XML document
' and saves it to disk.
' Requires msxml.dll (Go to Project --> References and
...

Private Sub cmdAddAmbassador_Click()
' Run when the user clicks the "<" button to add an ambassador to an event

...

Option Explicit

'Const HKEY_LOCAL_MACHINE = &H80000002
...

Private Function fIsAppRunning() As Boolean
            'Looks to see if Lotus Notes is open

...

Sub cleanupSheet()
' This function asks for two input the first is the sheet you want to clean up 
' The second is the Column and cell you wish to start at, e.g. A1
...

Private Function GetPreviousMonthsXml(ByVal months As Integer, ByVal startDate As Date, ByVal xDoc As XmlDocument, ByVal path As String, ByVal nodeName As String) As XmlDocument
...