Redigera

Dela via


Writing a Sub procedure

A Sub procedure is a series of Visual Basic statements enclosed by the Sub and End Sub statements that performs actions but doesn't return a value. A Sub procedure can take arguments, such as constants, variables, or expressions that are passed by a calling procedure. If a Sub procedure has no arguments, the Sub statement must include an empty set of parentheses.

The following Sub procedure has comments explaining each line.

' Declares a procedure named GetInfo 
' This Sub procedure takes no arguments 
Sub GetInfo() 
    ' Declares a string variable named answer 
    Dim answer As String 
    ' Assigns the return value of the InputBox function to answer 
    answer = InputBox(Prompt:="What is your name?") 
    ' Conditional If...Then...Else statement 
    If answer = Empty Then 
        ' Calls the MsgBox function 
        MsgBox Prompt:="You did not enter a name." 
    Else 
        ' MsgBox function concatenated with the variable answer 
        MsgBox Prompt:="Your name is " & answer 
        ' Ends the If...Then...Else statement 
    End If 
    ' Ends the Sub procedure 
End Sub

See also

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.