よろしくお願いします。
以下のようにクラスを作り、Propertyを内部から利用するのは問題ないでしょうか
Public Propertyとして定義した_Syouhin_CdをNewで使用しています。
実際はNewだけでなく別のメソッド等でも使います。
Property は外部からアクセスする為に作ると教本にあったので
内部から使えるとは思っていなかったのですがエラーが出ず意外でした
単なる無知なら良いのですがお願い致します。

Public Class testClass1
    Private P_Syouhin_CD As String = ""

    Public Property _Syouhin_Cd() As String
        Get
            Return P_Syouhin_CD
        End Get
        Set(ByVal value As String)
            P_Syouhin_CD = Str_To_Cd(value, 13)
        End Set
    End Property

    Private Function Str_To_Cd(ByVal In_Str As String, ByVal Ketasuu As Integer) As String
        Dim W_Cd As Long = 0
        If In_Str <> "" Then
            W_Cd = Long.Parse(In_Str)
        End If
        Dim Rtn_Str As String = W_Cd.ToString(New String("0", Ketasuu))

        Return Rtn_Str
    End Function

    Public Sub New(ByVal Syouhin_CD As String)
        _Syouhin_Cd = Syouhin_CD
    End Sub
End Class