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