HTML_CleanNumber

Cleans block of string (HTML block) from characters that are not needed
Can have more to add to list of cleaning characters

CodeFunctionName

What is this?

Public

Tested

Original Work

Function HTML_CleanNumber(HTMLBlock)
    ' Cleans block of string (HTML block) from characters that are not needed
    ' like / ' "
    ' More to add later
    '
    Rett = HTMLBlock
    ReplaceCharList = " ":        ReplaceWith = "":    Rett = Replace(Rett, ReplaceCharList, ReplaceWith) ' =
    ReplaceCharList = " ":        ReplaceWith = "":    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList = "—":    ReplaceWith = "0":    Rett = Replace(Rett, ReplaceCharList, ReplaceWith) ' — = —
    ReplaceCharList = ",":            ReplaceWith = "":    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList = " ":            ReplaceWith = "":    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList = "’":    ReplaceWith = "":    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList = "'":            ReplaceWith = "":    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList = "’":    ReplaceWith = "":    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList = "":    ReplaceWith = "":    Rett = Replace(Rett, ReplaceCharList, ReplaceWith) ' Zero with space
    ReplaceCharList = "":                ReplaceWith = "":    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList = "":                ReplaceWith = "":    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList = "":                ReplaceWith = "":    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList = "":                ReplaceWith = "":    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)

    HTML_CleanNumber = Rett
End Function

HTMLBlock