キャストを作ることはできますか？

public class 私のクラス
  public 番号 as integer
  public 名称 as string

  public sub new(byval 番号初期値 as integer, byval 名称初期値 as string)
    番号 = 番号初期値
    名称 = 名称初期値
  end sub

  public overrides function ToString() as string
    return (ctype(番号, string) & ":" & 名称)
  end sub

end class

private sub Ｒ・田中一郎くんをクラス替えする()
  dim さくら組 as new 私のクラス(1, "Ｒ・田中一郎くん")
  dim クラス変え as string = ctype(さくら組, string)
  dim すみれ組 as 私のクラス = ctype(文字列, 私のクラス)
end sub

public class 私のクラス

#region "　コンストラクタ・デストラクタ　"
    public sub new(byval 文字列 as string)
        me.FromString(文字列)    
    end sub

    public sub new(byval 番号初期値 as integer, byval 名称初期値 as string)
        番号 = 番号初期値
        名称 = 名称初期値
    end sub
#end region

#region "　番号　プロパティ　"
    public 番号 as integer
#end region

#region "　名称　プロパティ　"
    public 名称 as string
#end region

#region "　ToString　メソッド(Override)　"
    public overrides function ToString() as string
        return (ctype(番号, string) & ":" & 名称)
    end sub
#end region

#region "　FromString　メソッド　"
    public sub FromString(byval 文字列 as string)
        Dim A() As String = value.Split(":"c)
        番号 = CType(A(0), Integer)
        名称 = ""
        For i As Integer = 1 To A.Length - 1
            If (i > 1) Then
                名称 &= ":"
            End If
            名称 &= A(i)
        Next
    end sub
#end region

#region "　CType(Operator)　"
    Public Shared Widening Operator CType(ByVal value As 私のクラス) As String
        Return (value.ToString())
    End Operator

    Public Shared Widening Operator CType(ByVal value As String) As 私のクラス
        Return (New 私のクラス(value))
    End Operator
#end region

end class