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

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

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

i = i + 1     ' increment i by one

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>