codice:
Private Type myStruc
  iNum As Integer
  str As String
  lNum As Long
End Type

Dim t As myStruc

Private Sub Form_Click()
    Print Hex$(VarPtr(t))
    Print
    Print Hex$(VarPtr(t.iNum))
    Print Hex$(VarPtr(t.str)), Hex$(StrPtr(t.str))
    Print Hex$(VarPtr(t.lNum))
End Sub
ma non comprendo (anche se ci sara' ...) il motivo di una tale richiesta ...