Sub cmdPassParameters_Click() Call Initials("First", "LastName")End SubSub Initials(strFirst As String, strLast As String) MsgBox "Your Initials Are: " & Left$(strFirst, 1) _ & Left$(strLast, 1)End Sub