How to dynamically create a object of a generic class?

Public Sub Save(ByVal obj As IPta)

Dim AddressDao as New Generic.PtaDao(of Address)

Public Sub Save(Of T As { IPta, New })(ByVal obj As T)
    Dim foo As New T
    ' Do more stuff here
End Sub

Public Sub Save(Of TSomeIPtaType As {IPta, New})(ByVal obj As TSomeIPtaType)
    Dim dao As New Generic.PtaDAO(Of TSomeIPtaType)
End Sub

Public Sub ExampleUsage()

    Dim address As New Address

    Save(address)

End Sub