Dim charreplacer As New Dictionary(Of Char, Char)
 
charreplacer.Add(ChrW(&H44), ChrW(33))
charreplacer.Add(ChrW(&H2501), ChrW(60))
charreplacer.Add(ChrW(&H2660), ChrW(61))
 
Dim text As String = "irgendein text"
 
For Each kvp As KeyValuePair(Of Char, Char) In charreplacer
    text = text.Replace(kvp.Key, kvp.Value)
Next kvp