|
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
|