Iniciante - Probelmas com muitas variaveis

Olá Pessoal, sou bem iniciante em asp.net e estou com um problema.

Segue meu código:

Partial Class _Default

Inherits System.Web.UI.Page

Protected Sub btnSend_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSend.Click

Dim conexao As New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Email.mdb;Persist Security Info=False")

Dim command As New Data.OleDb.OleDbCommand

 Dim strComand As String = "INSERT INTO dados(cliente,contato,telefone,email,data) VALUES('{0}','{1}','{2}','{3}','{4}',#{5}#)"

 

 Dim cliente As String = txtCliente.Text

 Dim contato As String = txtContato.Text

 Dim telefone As String = txtTelefone.Text

 Dim email As String = txtEmail.Text

 

 

 Dim OpcaoA_1 As String = txtOpcaoA_1

 Dim OpcaoB_1 As String = txtOpcaoB_1

 Dim OpcaoC_1 As String = txtOpcaoC_1

 Dim OpcaoD_1 As String = txtOpcaoD_1

 Dim OpcaoE_1 As String = txtOpcaoE_1

 

 

 Dim OpcaoA_2 As String = txtOpcaoA_2

 Dim OpcaoB_2 As String = txtOpcaoB_2

 Dim OpcaoC_2 As String = txtOpcaoC_2

 Dim OpcaoD_2 As String = txtOpcaoD_2

 Dim OpcaoE_2 As String = txtOpcaoE_2

 

 Dim OpcaoA_3 As String = txtOpcaoA_3

 Dim OpcaoB_3 As String = txtOpcaoB_3

 Dim OpcaoC_3 As String = txtOpcaoC_3

 Dim OpcaoD_3 As String = txtOpcaoD_3

 Dim OpcaoE_3 As String = txtOpcaoE_3

 

 Dim OpcaoA_4 As String = txtOpcaoA_4

 Dim OpcaoB_4 As String = txtOpcaoB_4

 Dim OpcaoC_4 As String = txtOpcaoC_4

 Dim OpcaoD_4 As String = txtOpcaoD_4

 Dim OpcaoE_4 As String = txtOpcaoE_4

 

 Dim OpcaoA_5 As String = txtOpcaoA_5

 Dim OpcaoB_5 As String = txtOpcaoB_5

 Dim OpcaoC_5 As String = txtOpcaoC_5

 Dim OpcaoD_5 As String = txtOpcaoD_5

 Dim OpcaoE_5 As String = txtOpcaoE_5

 

 Dim OpcaoA_6 As String = txtOpcaoA_6

 Dim OpcaoB_6 As String = txtOpcaoB_6

 Dim OpcaoC_6 As String = txtOpcaoC_6

 Dim OpcaoD_6 As String = txtOpcaoD_6

 Dim OpcaoE_6 As String = txtOpcaoE_6

 

 Dim OpcaoA_7 As String = txtOpcaoA_7

 Dim OpcaoB_7 As String = txtOpcaoB_7

 Dim OpcaoC_7 As String = txtOpcaoC_7

 Dim OpcaoD_7 As String = txtOpcaoD_7

 Dim OpcaoE_7 As String = txtOpcaoE_7

 

 Dim OpcaoA_8 As String = txtOpcaoA_8

 Dim OpcaoB_8 As String = txtOpcaoB_8

 Dim OpcaoC_8 As String = txtOpcaoC_8

 Dim OpcaoD_8 As String = txtOpcaoD_8

 Dim OpcaoE_8 As String = txtOpcaoE_8

 

 Dim OpcaoA_9 As String = txtOpcaoA_9

 Dim OpcaoB_9 As String = txtOpcaoB_9

 Dim OpcaoC_9 As String = txtOpcaoC_9

 Dim OpcaoD_9 As String = txtOpcaoD_9

 Dim OpcaoE_9 As String = txtOpcaoE_9

 

 Dim OpcaoA_10 As String = txtOpcaoA_10

 Dim OpcaoB_10 As String = txtOpcaoB_10

 Dim OpcaoC_10 As String = txtOpcaoC_10

 Dim OpcaoD_10 As String = txtOpcaoD_10

 Dim OpcaoE_10 As String = txtOpcaoE_10

 

 

 Try

 

 ' ***************************************************

 ' SALVA MENSAGEM NO BANCO

 ' ***************************************************

 

 command.Connection = conexao

 command.CommandText = String.Format(strComand, cliente, contato, telefone, email, DateTime.Now.ToString("dd/MM/yyyy"))

 

 conexao.Open()

 

 command.ExecuteNonQuery()

 

 conexao.Close()

 conexao.Dispose()

 

 ' ***************************************************

 ' LIMPA A TELA E MOSTRA MENSAGEM

 ' ***************************************************

 

 txtCliente.Text = String.Empty

 txtContato.Text = String.Empty

 txtTelefone.Text = String.Empty

 txtEmail.Text = String.Empty

 

 

 lblMensagem.Text = "Email enviado com sucesso!"

 

 Catch ex As Exception

 

 ' ***************************************************

 ' MOSTRA MENSAGEM DE ERRO

 ' ***************************************************

 

 lblMensagem.Text = ex.Message

 

 End Try

 

 End Sub

End Class

O problema está aqui, abaixo são muitas váriaveis para eu inserir no banco, teria como fazer um loop pois somente os numeros mudam

Dim OpcaoA_1 As String = txtOpcaoA_1

Dim OpcaoB_1 As String = txtOpcaoB_1

Dim OpcaoC_1 As String = txtOpcaoC_1

Dim OpcaoD_1 As String = txtOpcaoD_1

Dim OpcaoE_1 As String = txtOpcaoE_1

Dim OpcaoA_2 As String = txtOpcaoA_2

Dim OpcaoB_2 As String = txtOpcaoB_2

Dim OpcaoC_2 As String = txtOpcaoC_2

Dim OpcaoD_2 As String = txtOpcaoD_2

Dim OpcaoE_2 As String = txtOpcaoE_2

Dim OpcaoA_3 As String = txtOpcaoA_3

Dim OpcaoB_3 As String = txtOpcaoB_3

Dim OpcaoC_3 As String = txtOpcaoC_3

Dim OpcaoD_3 As String = txtOpcaoD_3

Dim OpcaoE_3 As String = txtOpcaoE_3

Dim OpcaoA_4 As String = txtOpcaoA_4

Dim OpcaoB_4 As String = txtOpcaoB_4

Dim OpcaoC_4 As String = txtOpcaoC_4

Dim OpcaoD_4 As String = txtOpcaoD_4

Dim OpcaoE_4 As String = txtOpcaoE_4

Dim OpcaoA_5 As String = txtOpcaoA_5

Dim OpcaoB_5 As String = txtOpcaoB_5

Dim OpcaoC_5 As String = txtOpcaoC_5

Dim OpcaoD_5 As String = txtOpcaoD_5

Dim OpcaoE_5 As String = txtOpcaoE_5

Dim OpcaoA_6 As String = txtOpcaoA_6

Dim OpcaoB_6 As String = txtOpcaoB_6

Dim OpcaoC_6 As String = txtOpcaoC_6

Dim OpcaoD_6 As String = txtOpcaoD_6

Dim OpcaoE_6 As String = txtOpcaoE_6

Dim OpcaoA_7 As String = txtOpcaoA_7

Dim OpcaoB_7 As String = txtOpcaoB_7

Dim OpcaoC_7 As String = txtOpcaoC_7

Dim OpcaoD_7 As String = txtOpcaoD_7

Dim OpcaoE_7 As String = txtOpcaoE_7

Dim OpcaoA_8 As String = txtOpcaoA_8

Dim OpcaoB_8 As String = txtOpcaoB_8

Dim OpcaoC_8 As String = txtOpcaoC_8

Dim OpcaoD_8 As String = txtOpcaoD_8

Dim OpcaoE_8 As String = txtOpcaoE_8

Dim OpcaoA_9 As String = txtOpcaoA_9

Dim OpcaoB_9 As String = txtOpcaoB_9

Dim OpcaoC_9 As String = txtOpcaoC_9

Dim OpcaoD_9 As String = txtOpcaoD_9

Dim OpcaoE_9 As String = txtOpcaoE_9

Dim OpcaoA_10 As String = txtOpcaoA_10

Dim OpcaoB_10 As String = txtOpcaoB_10

Dim OpcaoC_10 As String = txtOpcaoC_10

Dim OpcaoD_10 As String = txtOpcaoD_10

Dim OpcaoE_10 As String = txtOpcaoE_10

Desde já agradeço a atenção.