Public Sub GetAPIVersion() ' Get API Version Dim majorVersion As String, minorVersion$ Dim msg$ ' ' Get the major and minor version of the OTA add-on. 'tdc is the global TDConnection object. tdc.GetTDVersion majorVersion, minorVersion ' msg = "You are working with API version " & majorVersion & "." _ & minorVersion MsgBox msg End Sub