I have a form full of Optionboxes...
All the OptionBoxes are with two of them together...

So I have for example:
Dog or Cat
Sheep or Cow
Fish or Bird

I want to write a function to return a 1 or a 0 to an integer...

VB Code:
  1. Public Sub OneZero(One As Boolean, Zero As Boolean, intName As String)

  2. If One = True Then

  3.     Name = 1

  4. ElseIf Zero = True Then

  5.     Name = 0

  6. End If

  7. End Sub

I call this functions...
VB Code:
  1. call OneZero(optDog, optCat, "intDogCat")

  2. call OneZero(optCow, optSheep, "intSheepCow")

  3. call OneZero(optFish, optBird, "intFishBird")

Problem now is I want the 1 or 0 into my intName instead of into Name...help!