Using Procedures and Subprocedures : Call « Language Basics « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Language Basics
3. Call

Using Procedures and Subprocedures

 
Sub AboutUserMaster()
    Dim first As String, last As String, full As String

    Call GetUserName(full)

    first = GetFirst(full)
    last = GetLast(full)

    Call DisplayLastFirst(first, last)
End Sub

Sub GetUserName(fullName As String)

    fullName = InputBox("Enter first and last name:")

End Sub
Function GetFirst(fullName As String)
    Dim space As Integer

    space = InStr(fullName, " ")
    GetFirst = Left(fullName, space - 1)
End Function
Function GetLast(fullName As String)
    Dim space As Integer

    space = InStr(fullName, " ")
    GetLast = Right(fullName, Len(fullName) - space)
End Function
Sub DisplayLastFirst(firstName As String, lastName As String)

    MsgBox lastName & ", " & firstName

End Sub

 

Related examples in the same category