Parameters

Function fullName(strFname As String, strLname As String) As String

    Dim strFirstName As String

    Dim strLastName As String

    Dim strFullName As String

    strFirstName = strFname

    strLastName = strLname

    strFullName = strFirstName & " " & strLastName

    fullName = strFullName

End Function

Sub getName()

    Dim strFirstName As String

    Dim strLastName As String

    Dim strFullName As String

    strFirstName = InputBox("Enter the First Name", "First Name")

    strLastName = InputBox("Enter the Last Name", "Last Name")

    strFullName = fullName(strFirstName, strLastName)

    MsgBox strFullName, , "Full Name"

End Sub