Make Initials Capitals
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 = ” “… Read More »