Author  

Language  

Operating Systems  

Option Explicit

' MODULE
' 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

' USAGE
'Create a form with a button and a text box
Private Sub Command1_Click()
    Text1 = MakeInitialsCapital(Text1)
End Sub