Type punkt
 x As Integer
 y As Integer
End Type

Sub punktikatse()
  Dim p As punkt
  p.x = 7
  p.y = 11
  MsgBox p.x
End Sub