Public Function DeSlash (Text As String) As String

    Dim NewText As String
    NewText = Replace(Text, "\n", vbCrLf)
    NewText = Replace(NewText, "\t", vbTab)
    NewText = Replace(NewText, "\\", "\")
    DeSlash = NewText
End Function