Class i VB

Min Class ser således ud, men den vil ikke:

Option Explicit

Public strString As String
Public link As Class1

Sub Output()
    If link <> Nothing Then  <-- Her er fejlen.
        link.Output
    End If
End Sub

Private Sub Class_Initialize()
    Set link = Nothing
End Sub

Man må åbenbart ikke chekke på en reference på den måde, men hvordan gør man så?