Hallo,

ich experimentiere gerade mit eigenen Klassen und habe dazu Fragen:

Angenommendie folgende Beispielklasse:

'(clsTst)-------------------------------------------
Option Explicit

Private pNum As Integer
Private pStr As String

Public Property Get Num() As Integer
  Num = pNum
End Property

Public Property Let Num(ByVal NewValue As Integer)
  pNum = NewValue
End Property

Public Property Get Str() As String
  Str = pStr
End Property

Public Property Let Str(ByVal NewValue As String)
  pStr = NewValue
End Property

Public Sub InitS(n As Integer, s As String)
    pNum = n
    pStr = s
End Sub

Public Function InitF(n As Integer, s As String) As Boolean
    pNum = n
    pStr = s
    InitF = True
End Function
'---------------------------------------------------

und das folgende Test-Modul

'---------------------------------------------------
Option Explicit

Sub Test()
    Dim t As clsTst
    Set t = New clsTst
    't.InitS(2,"Test")
    If t.InitF(2, "Test") Then MsgBox "ok"
End Sub
'---------------------------------------------------

dann funktioniert die Funktion InitF anstandslos, während die Sub InitS nicht übersetzt wird.
Was mache ich falsch? 

Wolfgang