Table of Contents
Advertisement
Remote Operation
Example Programs
Private Function TrimVISAStr(ByVal VISAStr As String) As String
Dim Pos As Long
On Error GoTo ErrorHandler
Pos = (InStr(VISAStr, Chr(0))) - 1
If Pos <> -1 Then
TrimVISAStr = Left(VISAStr, Pos)
Else
TrimVISAStr = Trim(VISAStr)
End If
Exit Function
ErrorHandler:
TrimVISAStr = VISAStr
End Function
5-38
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
Advertisement
Table of Contents
