Hello,
Something like the following should work for you...
Code:
Dim PITag As PISDK.PIPoint
Set PITag = PIServer.PIPoints("SINUSOID")
myTextBox.Text = PITag.PointAttributes("descriptor").Value
Cheers.
Principal Consultant
Real-Time Data Management @ Wipro Technologies