auf selbstgeschriebene Methode zugreifen und Variable übergeben

[lioncar]

Hi

Habe volgende Methode geschrieben:

Code:
Private Sub CommandButton2_Click()
NewSheetName = NewSheetNam()
End Sub



Sub NewSheetNam(Int1)
Dim Int1 As String
MessSit = Right(SheetName, 11)
'MsgBox SheetName
If Left(MessSit, 3) = "-40°C" Then
If Right(MessSit, 1) = "O" Then
If Mid(MessSit, 6, 5) = " " Then
Int1 = "-40°C,0°,open"
End If
If Mid(MessSit, 6, 5) = "+11.3" Then
Int1 = "-40°C,+11.3°,open"
End If
If Mid(MessSit, 6, 5) = "-11.3" Then
Int1 = "-40°C,-11.3°,open"
End If
End If
If Right(MessSit, 1) = "C" Then
If Mid(MessSit, 6, 5) = " " Then
Int1 = "-40°C,0°,close"
End If
If Mid(MessSit, 6, 5) = "+11.3" Then
Int1 = "-40°C,+11.3°,open"
End If
If Mid(MessSit, 6, 5) = "-11.3" Then
Int1 = "-40°C,-11.3°,open"
End If
End If
End If
End Sub



Sie steht in dem Code einer UserFrom die mehrere Objekte enthällt. In einem Objekt in der UserForm möchte ich auf die Methode zugreifen. Die Variablen "MessSit" und "SheetName" sind für alle Objekte deklariert.
An bestimmten Stellen in einem Objekt, möchte ich den Wert, den die Methode wiedergibt einer Variablen "NewSheetName" abspeichern. Wie krieg ich das hin Denke nicht das mein Code richtig ist, sonst würde es ja klappen, oder? *lach*

Hoffe auf Hilfe

Gruß Timo