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