Dim MyClass
   Private Shared instance As MyClass
 
   ' Wichtig - privat!
   Private Sub New()
      ' ...
   End Sub
 
   Public Shared Function GetInstance() As MyClass
      If instance Is Nothing Then instance = New MyClass()
      Return instance
   End Function
 
   ' hier der Rest
End Class

Ralf