Dim lPos As Long
 
lPos = 0
Do
  lPos = InStr(lPos + 1, DeinString, "\")
  If lPos > 0 Then
    If Mid$(DeinString, lPos + 1, 1) <> "\" Then
      DeinString = Left$(DeinString, lPos) & "\" & Mid$(DeinString, lPos + 1)
    End If
    lPos = lPos + 2
  End If
Loop Until lPos = 0