LSM 510
VBA Programming
LSM 510 META
Access to Windows API Function and external DLLs
Carl Zeiss
03/06
B 45-0021 e
5-7
lngResult = RegCloseKey(hKeyServer)
hKeyServer = 0
i = Len(strPath)
Do Until (i = 0)
If (VBA.Mid(strPath, i, 1) = "\") Then
strPath = Left(strPath, i - 1)
FServerFromDescription = True
Exit Do
End If
i = i - 1
Loop
error_exit:
If (Not hKeyServer = 0) Then lngResult = RegCloseKey(hKeyServer)
hKeyServer = 0
End Function