Function withBS(Path As String) As String If Right(Path, 1) <> "\" Then withBS = Path & "\" Else withBS = Path End If End Function