Return a calculated value from a Function Procedure

[Numbers1]

Novice at VBA so bear with me.

Am trying to convert the number in a variable to another number and have to do this quite often so wrote a Function to do the calculation and return the result to the same variable.

Dim intInteger as Integer

Sub MainSub()
intInteger = 2
Convert (intInteger)

End Sub

Function Convert(ByVal number as Integer) as Integer

number = number * 4

End Function

How do I get the 'number' (2*4) 8 back into the MainSub and put it in the original intInteger or another variable?

Thanks, Numbers

 

[SkipVought]

Hi,

Sub MainSub()
intInteger = 2[b]
intInteger =[/b] Convert(intInteger)

End Sub

Function Convert(ByVal number as Integer) as Integer
[b]
Convert[/b] = number * 4

End Function

Skip,

_[red][/red]

 

[macropod]

hi Numbers,

Try:
Dim intInteger As Long

Sub MainSub()
intInteger = 2
Convert intInteger
MsgBox intInteger
End Sub

Function Convert(ByVal number As Integer) As Integer
intInteger = intInteger * 4
End Function

Cheers

[MS MVP - Word]

 

[PHV]

Another way:
[!]Sub[/!] Convert([!]ByRef[/!] number As Integer)

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Numbers1]

Thank you all. Seems too easy, but try to find this is the help files!! Appreciate your input.
Numbers

 

[PHV]

try to find this is the help files
When in the debug window (Ctrl+G) type byref and press the F1 key.
Anyway I think you have to understand what a Function is.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886