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

Public Sub New()
    表.Columns.Add(番号列の生成())
    表.Columns.Add(名称列の生成()) 
    表.Columns.Add(性別列の生成())
End Sub

Private Function 番号列の生成() as DataGridViewColumn
    dim 列 as DataGridViewColumn = New DataGridTextBoxColumn
    With 列
        .Name = "番号"
        .HeaderText = .Name
        .Width = 50
        :
        :
    End With
    Return (_列)
End Function

Private Function 名称列の生成() as DataGridViewColumn
    dim 列 as DataGridViewColumn = New DataGridTextBoxColumn
    With 列
        .Name = "名称"
        :
    End With
    Return (_列)
End Function

Private Function 性別() as DataGridViewColumn
    dim 列 as DataGridViewColumn = New DataGridComboBoxColumn
    With 列
	.CellTemplate = New CustomComboBoxCell
	.Name = "性別"
	.HeaderText = .Name
	.Items.Add(New ComboItem(1, "法人"))
	.Items.Add(New ComboItem(2, "男性"))
	.Items.Add(New ComboItem(3, "女性"))
	.Width = 90
    End With
    Return (_列)
End Function

Private Sub Me_値が変更される直前( _
 ByVal sender As Object, _
 ByVal e As 表コントロール.編集.取消せる編集セル _
) Handles MyBase.値が変更される直前
    e.取消し = (Not データを更新する(表.Columns(e.桁位置).Name, e.値))
End Sub

private sub データを更新する(byval 項目名 as string, byval 値 as object)
    ここで悩んでいるのです・・・
end sub

    Public 番号 as string

    Private _番号 As Integer 

    Public Property 番号() As Integer 
    Get 
        Return(_番号) 
    End Get 

    Set(Byval value As Integer) 
        _番号 = value 
    End Set 
    End Property