In diesem Beispiel wird die Type-Anweisung verwendet, um einen benutzerdefinierten Datentyp zu definieren. Die Type-Anweisung wird nur auf Modulebene verwendet. Wenn eine Type-Anweisung in einem Klassenmodul angezeigt wird, muß ihr das Schlüsselwort Private vorangestellt werden.
Type Angestellter ' Benutzerdefinierten Typ erstellen.
PersNr As Integer ' Elemente des Typs definieren.
Name As String * 20
Adresse As String * 30
Telefon As Long
Einstellungsdatum As Date
End Type
Sub CreateRecord()
Dim Datensatz1 As Angestellter ' Variable deklarieren.
' Die Zuweisung zur Variablen Angestellter muß in einer Prozedur
' erfolgen.
Datensatz1.PersNr = 12003 ' Einem Element wird ein Wert
' zugewiesen.
End Sub