有一个子程序
Sub salutation(strFirst As String, strLast As String, Optional varSalutation As Variant)
Dim strTemp As String
If IsMissing(varSalutation) Then
strTemp = strFirst & " " & strLast
Else
strTemp = varSalutation & " " & strFirst & " " & strLast
End If
MsgBox "Full Name is " & strTemp
End Sub