特定のクラスのみ別クラスのプロパティへのアクセスを許可したい

'個人情報クラス
Public Class Personal

   Private mName As String
   Private mAddress As String
   Private mAge As Integer

   Public ReadOnly Property Name As String
        Get
            Return Me.mName
        End Get
    End Property

End Class

'個人情報クラス
Public Class Company

   Private mCompanyName As String
   Private mEmployees As New List(Of Personal)

   Public Sub New()
      Dim personal As New Personal()
      Console.WriteLine(personal.Name)
      personal.Name = "IT太郎" 'これを可能にしたい
      mEmployees.Add(personal)
   End Sub

End Class

'フォームクラス
Public Class Form1

   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
      Dim personal As New Personal()
      Console.WriteLine(personal.Name)
    End Sub

End Class

Public Class Personal2
   Public ReadOnly Name As String
   Public ReadOnly Address As String
   Public ReadOnly Age As Integer

   Public Sub New(name As String, address As String, age As Integer)
      Me.Name = name
      Me.Address = address
      Me.Age = age
   End Sub
End Class