Sub cmdReturnValues_Click()
Dim strInitials As String
strInitials = ReturnInit("First", "Last")
MsgBox "Your initials are: " & strInitials
End Sub
Function ReturnInit(strFName As String, strLName As String) As String
ReturnInit = Left$(strFName, 1) & Left(strLName, 1)
End Function