Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Private Sub CommandButton1_Click()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc

Dim d1 As Object
Set d1 = Part.Parameter("D1@sketch1@part1.sldprt")

TextBox1.Text = d1
End Sub

Private Sub UserForm_Click()

End Sub

I don't see any number on this.  Please help me get through this concept.  I just want VB solidworks to spit out a number of a sketch.  A RD1@Annotations would be fine too.  Please show me how to pull a number ( dimension value) out of a sketch, drawing, body, edge, or whatsoever.  Thanks!