Option Explicit
 
Private kL As Long      'Variable für Länge
Private kStr As String  'Variable für String
 
Property Get Länge() As Long
Länge = kL
End Property
Property Let Länge(lVal As Long)
kL = lVal
End Property
Property Get Zeichenkette() As String
Zeichenkette = begrenzen
End Property
Property Let Zeichenkette(strVal As String)
kStr = strVal
End Property
 
Private Function begrenzen() As String
begrenzen = Left(kStr, kL)
End Function

Private Sub Command3_Click()
Dim cls1 As New Class1
cls1.Länge = 5
cls1.Zeichenkette = "abcdefghijk"
MsgBox cls1.Zeichenkette
End Sub