Public Function backslash(ByVal path As String) As String
    If path = "" Then
        backslash = ""
    Else
        If Right(path, 1) <> "\" Then
            backslash = path & "\"
        Else
            backslash = path
        End If
    End If
    Exit Function
End Function