Sub useaFunction()
MsgBox concatF() End Sub
Function concatF() As String Dim strFirstname As String Dim strLastName As String Dim strFullName As String
strFirstname = "John"
strLastName = "Smith"
strFullName = strFirstname & " " & strLastName
concatF = strFullName End Function