title: VBScript Class Function with Multiple Parameters
body: <p>I have a class function I want to feed multiple parameters but I am having trouble as I am new to using classes in VB.</p>
  
  <p>This is what I currently have working with a single parameter</p>
  
  <pre><code>Set objLoc = new Location
  objLoc.getLoc = strOffice
  </code></pre>
  
  <p>Need it to work something like this</p>
  
  <pre><code>Set objLoc = new Location
  objLoc.getLoc = (strOffice, strDep)
  </code></pre>
  
  <p>Location Class</p>
  
  <pre><code>Class Location
          Private strPhone, strFax, strStreet, strCSZ
  Public Property Let getLoc(strOffice)
      if LCase(strOffice) = LCase("foo") then
          strPhone = "999-999-9999"
          strFax = "888-888-8888 fax"
          strStreet = "..."
          strCSZ = "..."
      ElseIf  LCase(strOffice) = LCase("bar") then
          strPhone = "777-777-7777"
          strFax = "555-555-5555 fax"
          strStreet = "..."
          strCSZ = "..."
      Else
      End If
  End Property
  
  Public Property Get Street
      Street = strStreet
  End Property
  
  Public Property Get CSZ
      CSZ = strCSZ
  End Property
  
  Public Property Get Fax
      Fax = strFax
  End Property
  
  Public Property Get Phone
      Phone = strPhone
  End Property
  End Class
  </code></pre>