tr(sPathTo, ":")
         sPathTo = Mid(sPathTo, iPos + 1)
         If (Right(sPathTo, 1) &lt;&gt; "\") Then sPathTo = sPathTo &amp; "\"
         sPathTo = sPathTo &amp; nodDrag.Text
         Dim sQuestion As String
         sQuestion = "Are you sure you want to move the folder " &amp; vbCrLf _
            &amp; nodDrag.Text &amp; " (" &amp; sPathFrom &amp; ") " &amp; vbCrLf &amp; _
            " to " &amp; vbCrLf &amp; _
            nodeOver.Text &amp; " (" &amp; sPathTo &amp; ") ?" &amp; vbCrLf &amp; vbCr