Return Any Name String in Proper Capitalization

 
Function FormatProper(ByVal strName As String) As String
'**********************************************************************
'*  Take any name string and return it in proper capitalization
'**********************************************************************
    Dim strProperName As String
    Dim varProperName As Variant
    Dim intCount As Integer
    Dim i As Integer
    
    varProperName = Split(strName,