Language Basics VisualBasic Script

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