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

i = i + 1     ' increment i by one

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

Function CalculateHourlyRate()

End Sub

bervukas

Function Test(L1 As Long, L2 As Long, Optional P1 As Variant, Optional P2 As Variant) As String

    Dim S As String
      
    If IsMissing(P1) = True Then
        S = "P1 Is Missing."
    Else
        S = "P1 Is Present (P1 = " & CStr(P1) & ")"
    End If
    

bervukas

Function CalculateTotal(sProductId As String, 
			 iQuantity As Integer, 
			dUnitPrice As Double) As Double
	''''
	' etc.
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

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

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