お騒がせしました。
TextBoxの処理がよくなかったようです。

    Private Sub dataGridViewTextBox_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
        Dim sen As System.Windows.Forms.DataGridViewTextBoxEditingControl = sender
        sen.EditingControlDataGridView.CurrentCell.Value = Calk(sender.text)
　　End Sub

としたら計算できました。

解決とさせていただきますが、これじゃダメという場合は教えてください。
ありがとうございました。