Use something like this:


Code:
Function NormalisePath(strPath As String) As String

If Right(strPath, 1) = "\" Then
  NormalisePath = strPath
Else
  NormalisePath = strPath & "\"
End If


End Function