Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Inserting Default Values When Parameters Are Missing

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