MACROS AND VISUAL BASIC
LSM 710 and LSM 780
Carl Zeiss
VBA PROGRAMMING FOR LSM
Systems
38 M60-1-0025
e
02/2010
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