Public Function flower(m_strInput As String) As String
Dim m_sEncr As String
Dim m_sOut As String
Dim m_nLen As Integer
Dim i As Integer
Dim i_iCode As Integer
Dim i_cChar As String

m_strInput = "ABC"
m_nLen = Len(m_strInput) ' len of string
    
    For i =  0  To m_nLen -  1 
        m_sOut = m_sOut + Mid(m_strInput, i +  1 ,  1 )

        m_sEncr = m_sEncr + Str(Asc(Mid(m_strInput, i +  1 ,  1 )) +  1 )
        
        '- m_sEncr = m_sEncr + Chr(Asc(Mid(m_strInput, i + 1, 1)) + 1)
        
        '- Chr (Asc(Mid(m_strInput, i + 1, 1)) + 1)
    Next i
    
    MsgBox "m_sOut = " & vbNewLine & m_sOut & vbNewLine & _
    "m_sEncr = " & vbNewLine & m_sEncr
    
    encr = m_sEncr
End Function