Function ReturnInit2(ByVal strFName As String, _
Optional ByVal strMI, Optional ByVal strLName)
If IsMissing(strMI) Then
strMI = "A"
End If
If IsMissing(strLName) Then
strLName = "Roman"
End If
ReturnInit2 = strLName & "," & strFName & " " & strMI
End Function
Sub DefaultPara()
msgBox ReturnInit2("A", , "B")
End Sub