Return Values

[ziycon]

I'm having a problem with returning values from a function.

No matter what I do I can't return values from another function to store in a variable. Any help much appreciated!

Say I have:

Public Sub MainFunc()
  result = test "param1","param2"
End Sub
 
Private Sub test(param1In,param2In)
  {return value}
End Sub

[ziycon]

Ok, I've gotten a bit further, I release I should have been using Function instead of Sub, can someone tell me the difference?

I've changed the code to be like below but its still crashing out at the function call?

Public Function MainFunc(param1In,param2In)
  result = test(param1In,param2In)
 
  Console.Write result
End Function
 
Private Function test(param1In,param2In)
  Dim answer
 
  answer = param1In + param2In
 
  Set test = answer
End Function

[vb5prgrmr]

Function = As Something...

Private Function MyFunction (MyInput As String) As String
MyFunction = MyInput
End Function
 

Good Luck

[ziycon]

I'm slightly confused, I understand the example you gave, just not 100% sure how it would handle multiple parameters?

Private Function test(param1In,param2In)
  Dim answer
  answer = param1In + param2In
  test = answer
End Function

[ziycon]

Got it working, thanks for your help.