Help what?
Have you got a question?
Dim j As Integer
Dim s As String
For j = 1 To Len(Bridge)
If Mid(Bridge, j, 1) = "-" Then
s = s & "\"
Else
s = s & Mid(Bridge, j, 1)
End If
Next j
Bridge = s
For Access 2k or higher, use:Bridge = Replace(Bridge, "-", "\")