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