bervukas

Sub Test()
  Dim data As String
  Dim data2 As Integer
  Dim foo As Boolean
  Dim wph As Integer
  Dim dummy as Long
  
  ''
  '  etc.
End Sub

bervukas

Private Const PASSWORD_LENGTH = 7

Sub SetPassword(password As String)
  
  If (Len(password) > PASSWORD_LENGTH) Then
    '  Display error
  End If
  
End Sub

bervukas

Sub SetPassword(password As String)
  
  If (Len(password) > 7) Then
    '  Display error
  End If
  
End Sub

bervukas

Sub CalculatePayroll()
  
  Dim a, b, c, d As Integer   ''  Incorrect
  
  ''  Do this instead:
  
  Dim a As Integer
  Dim b As Integer
  Dim c As Integer
  Dim d As Integer

bervukas

i = i + 1     ' increment i by one

bervukas

Function CalculateTotal(productId As String, 
			 quantity As Integer, 
			unitPrice As Double) As Double
	''''
	' etc.
End Function

bervukas

Function CalculateTotal(sProductId As String, 
			 iQuantity As Integer, 
			dUnitPrice As Double) As Double
	''''
	' etc.
End Sub

bervukas

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon startFromScratch="false">
    <tabs>
      <tab id="customTab" label="Custom Tab">
        <group id="customGroup" label="Custom Group">
          <button id="customButton" label="Custom Button" imageMso="HappyFace" size="large" />
        </group>
      </tab>
    </tabs>
  </ribbon>