Dúvida: como criar métodos em VB.Net

Public Class Carro

  Private Shared quantidade As Integer = 0
  Private ano As Integer
  Private modelo As String

  Public Sub New(ByVal modelo As String, ByVal ano As Integer)
    quantidade += 1
    Me.modelo = modelo
    Me.ano = ano
  End Sub

  Public Shared Sub QuantosCarros()
    Console.WriteLine("{0} carros vendidos", quantidade)
  End Sub

End Class