Type MeineVariableType
Wort1 as String * 20
Wort2 as String * 10
Wort3 as String * 30
Wort4 as String * 18
End Type
 
Sub Test()
Dim MeineVariable1 as MeineVariableType
Dim MeineVariable2 as MeineVariableType
'Du kannst die einzelnen Werte bearbeiten
MeineVariable1.Wort1 = "Blabla"
MeineVariable1.Wort3 = "Tralala"
'Du kannst aber auch die ganze Variable bearbeiten
MeineVariable2 = MeineVariable1
End Sub