Erro no Código

Boa noite,

Estou tentando copiar o conteúdo de um arquivo de texto e gravar num banco SQL, porém durante a compilação está acusando um erro 9 Subscript of range, porém não consegui visualizar no código em qual momento estourei o vetor, ou estou tentando escrever em uma posição inexistente, abaixo segue meu código:

Dim servidor, usuario, senha, banco As String

Dim sql As String

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Private Sub cmdimportar_Click()

Dim vResult, X, caminho As String

Dim vetor As Variant, aux(0 To 3) As String

Dim F As Long

Dim i As Integer

F = FreeFile

caminho = txtcaminho.Text / esse caminho o usuário informa no momento de indicar o arquivo a ser aberto/

Open caminho For Input As #F

Do While Not EOF(F)

Input #1, X

vetor = Split(X, , 4)

/ Nesse trecho é acessado a tabela e realizado o insert a partir do vetor que quebrou a string do arquivo de texto/

/ O arquivo de texto está no formato:/

/Codigo Nome Conta Telefone/

/* Ex.:

01 Roberta 00015 4588-1010*/

 sql = "INSERT INTO CAMPANHA " & _

 "(Codigo, Nome, Conta, Telefone) " & _

 "VALUES (" & Val(vetor(0)) & ", '" & _

 vetor(1) & "'," & _

 Val(vetor(2)) & "," & _

 vetor(3) & "')"

 

 rs.CursorLocation = adUseClient

 rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic

 

 Loop

Close #1

End Sub

Private Sub Form_Load()

cn.Provider = "SQLOLEDB" 'provedor de acesso

cn.Properties("Data Source").Value = "Home\SQLExpress" 'servidor

cn.Properties("Initial Catalog").Value = "DBCampanha" 'nome do banco

cn.Properties("User ID").Value = "sa" 'usuario

cn.Properties("Password").Value = "030980" 'senha

cn.Open 'abre conexao

MsgBox "Conexão efetuada com sucesso!!"

End Sub

Obrigada se alguém puder me auxiliar

Até mais

:wacko: