Function escape_character()

in spreadsheet/Sheet1.vb [78:87]

• 5 lines of code
• 2 McCabe index (conditional complexity)

Function escape_character(ByVal input_text As String, search_char As String, Optional unescape_first As Boolean = True) As String
    
    If unescape_first Then
        input_text = Replace(input_text, "\" + search_char, search_char)
    End If
    
    input_text = Replace(input_text, search_char, "\" + search_char)
    
    escape_character = input_text
End Function