Intendi così forse?
codice:
  Dim tbc As String = 1
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            tbc = System.IO.File.ReadAllText(OpenFileDialog1.FileName, TabControl1.Tag = 1)
            TabControl1.Tag = tbc
        End If