Makes the initials characters capital. ie. character after space/hyphen/dot
Public Function MakeInitialsCapital(str As String) As String
Dim i As Integer, L As Integer
Dim Prev_char As String * 1
Dim c As String * 1
Dim S As String
Prev_char = " "
L = Len(str)
i = 1
S = ""
Do While i <= L
c = Mid(str, i, 1)
If Prev_char = " " Or Prev_char = "-" Or Prev_char = "." Then
c = UCase(c)
Else
c = LCase(c)
End If
If c = "M" Then
If Mid(str, i + 1, 1) = "g" Or Mid(str, i + 1, 1) = "l" Then
c = "m"
End If
End If
S = S + c
Prev_char = c
i = i + 1
Loop
str = S
MakeInitialsCapital = S
End Function