This article was co-authored by wikiHow staff writer, Nicole Levine, MFA. Nicole Levine is a Technology Writer and Editor for wikiHow. She has more than 20 years of experience creating technical documentation and leading support teams at major web hosting and software companies. Nicole also holds an MFA in Creative Writing from Portland State University and teaches composition, fiction-writing, and zine-making at various institutions.
The wikiHow Tech Team also followed the article's instructions and verified that they work.
This article has been viewed 142,261 times.
Learn more...
Are you confused about calling function procedures in Visual Basic and VBA? When you call a function, its statements run beginning with the first executable after the "Function" statement until "End Function," "Return," or "Exit Function" is encountered. Once you learn the proper syntax for call statements and check out some helpful examples, it will be incredibly easy to call functions from anywhere in your program. This wikiHow tutorial will teach you easy ways to call functions in VB and VBA.
Steps
Function Calling Examples
-
1In this example, we'll write a function that finds the hypotenuse of a right triangle. Then, we'll call that function to find the hypotenuse for a triangle if one of the lines is 2.3.
- First, let's create the function.
Function hypotenuse(ByVal side1 As Single, ByVal side2 As Single) As Single Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2)) End Function
- And here's how we'd call the function if one side is 2.3.
Dim testLength, testHypotenuse As Single testHypotenuse = hypotenuse(testLength, 2.3)
- First, let's create the function.
-
2We can also call functions using expressions. In this example, we'll call the MsgBox function, which displays a message box to the user and accepts input. There are 5 possible named arguments for MsgBox in Visual Basic and VBA—prompt, buttons, title, helpfile, and context. We want to pass two arguments—one to display a message, and another to display yes and no buttons:
Dim intResponse As Integer intResponse = MsgBox("Are you sure you want to proceed?", vbYesNo) If intResponse = vbYes Then End End If
-
3Now we'll create a function that adds two numbers together. First we'll write a function called Add, and then we'll call the function to add the numbers 32 and 64.
- First, here's the function:
Function Add(ByVal x As Integer, ByVal y As Integer) As Integer Dim Res as integer Res = x + y Add = Res End Function
- Now, let's call the function in a subroutine to add our numbers:
Sub Form_Load() Dim a As Integer Dim b As Integer Dim c As Integer a = 32 b = 64 c = Add(a, b) MsgBox ("Sum is : " & c) End Sub
- First, here's the function:
Community Q&A
-
QuestionHow do I run a function in VB.net?SnodCommunity AnswerClick Compile then Run using the menu. There may also be keyboard shortcut hotkeys.
References
- ↑ https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/call-statement
- ↑ https://docs.microsoft.com/en-us/dotnet/visual-basic/programming-guide/language-features/procedures/function-procedures
- ↑ https://docs.microsoft.com/en-us/dotnet/visual-basic/programming-guide/language-features/procedures/function-procedures
- ↑ https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/statements/function-statement