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>

bervukas

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

bervukas

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

bervukas

i = i + 1     ' increment i by one

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

Sub SetPassword(password As String)
  
  If (Len(password) > 7) Then
    '  Display error
  End If
  
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 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

Function CalculateHourlyRate()

End Sub

bervukas

Function CreateProposal(clientName As String, 
                          clientId As Integer, 
                             title As String, 
                          subtitle As String, 
                       projectName As String,
                        reportDate As Date, 
                        preparedBy As String,
                        reviewedBy As String,
                        authoredBy As String, 
                          fontSize As Integer) As Boolean