Public Function UNCpath(ByVal DrivePath As String) As String

    Dim nwork As Object
    Set nwork = CreateObject("WScript.Network")

    Dim NDrives As Object
    Set NDrives = nwork.EnumNetworkDrives

    Dim drives As Integer
    drives = NDrives.Count - 1

    Dim i As Long
    For i = 0 To drives Step 2
      If NDrives.Item(i) <> vbNull And InStr(1, DrivePath, NDrives.Item(i), 1) > 0 Then
        UNCpath = Replace(DrivePath, NDrives.Item(i), NDrives.Item(i + 1))
        Exit For
    Next

Public Function UNCpath(ByVal DrivePath As String) As String

    Dim nwork As Object
    Set nwork = CreateObject("WScript.Network")

    Dim NDrives As Object
    Set NDrives = nwork.EnumNetworkDrives

    Dim i As Long
    For i = 0 To NDrives.Count - 1 'Step 2

        If NDrives.Item(i) <> vbNull And InStr(1, DrivePath, NDrives.Item(i), 1) > 0 Then
            UNCpath = Replace(DrivePath, NDrives.Item(i), NDrives.Item(i + 1))
            Exit For
        End If

    Next

End Function