UncName

Private Function IsUNCName(ByVal sPathName As String) As Boolean
Const csUNCNAME As String = "\\//\" 'so can check for \\, //, \/, /\
IsUNCName = CBool((InStr(csUNCNAME, Left$(sPathName, 2)) > 0) And _
(Len(sPathName) > 1))
End Function