Dim x(1 To 10, 16)
Debug.Print LBound(x, 1)    '1
Debug.Print LBound(x, 2)    '0

Sub foo()

Dim x As Long
Dim t As Boolean
'2 steps for this
If t Then x = 6 Else x = 5

'4 steps for this
If t Then
  x = 6
Else
  x = 5
End If
End Sub

Option Explicit

Public Sub BranchTest()
    Dim start As Double
    start = Timer

    Dim i As Long, temp As Boolean
    For i = 1 To 1000000
        temp = SingleLine
'        temp = MultiLine
    Next i

    Debug.Print Timer - start
End Sub

Public Function SingleLine() As Boolean
    Dim branch As Double
    branch = Rnd()
    If branch < 0.5 Then SingleLine = True Else SingleLine = False
End Function

Public Function MultiLine() As Boolean
    Dim branch As Double
    branch = Rnd()
    If branch < 0.5 Then

Sub BytesToLong()

  Dim aRaw(3) As Byte

  aRaw(0) = 0
  aRaw(1) = 0
  aRaw(2) = 0
  aRaw(3) = 2

  Dim result1 As Long
  CopyMemory result1, aRaw(0), 4 '33554432

  Dim aReversed() As Byte
  aReversed = StrConv(StrReverse(StrConv(aRaw(), vbUnicode)), vbFromUnicode)

  Dim result2 As Long
  CopyMemory result2, aReversed(0), 4 '2
End Sub

Sub BytesToLong()
  Dim raw(3) As Byte

  raw(0) = 0
  raw(1) = 0
  raw(2) = 0
  raw(3) = 2

  Dim result As Long
  Dim i As Integer
  For i = 0 To 3
    CopyMemory VarPtr(result) + i, VarPtr(raw(3)) - i, 1
  Next
End Sub

Function foo(ByRef fizz As Boolean) As Boolean
    fizz = True
    goo
label1:
    foo = fizz
End Function

Sub goo()

End Sub

Sub foo(ByRef fizz As Boolean)
End Sub

Sub goo()

End Sub

var result = noReturnStatements.Replace(oldSignature, newSignature)
    .Replace(Tokens.End + ' ' + endToken, Tokens.End + ' ' + Tokens.Sub)
    .Replace(Tokens.Exit + ' ' + endToken, Tokens.Exit + ' ' + Tokens.Sub);