Public Function pretvori(dovezi As String) As String
Dim staraslova As String

staraslova = dovezi
staraslova = Replace(staraslova, "[", "Š")
staraslova = Replace(staraslova, "{", "š")

staraslova = Replace(staraslova, "]", "")
staraslova = Replace(staraslova, "}", "")

staraslova = Replace(staraslova, "^", "")
staraslova = Replace(staraslova, "~", "
")

staraslova = Replace(staraslova, "@", "Ž")
staraslova = Replace(staraslova, "`", "ž")

staraslova = Replace(staraslova, "\", "")
staraslova = Replace(staraslova, "|", "")
pretvori = staraslova
End Function