Amigos estou com um problema! Novidade

Vamos lá, tenho uma rotina, que segue abaixo, que retira do listbox2 a 1 coluna e lança este valor na planilha. A linha que faz isso no código abaixo é: ActiveCell.Offset(0, 11).Value = Val(ListBox2.List(i))

A questão e que ele não adiciona valores que não sejam apenas números, exemplo, 0001A. O que devo alterar para que a rotina funcione perfect?

Abraços a todos!

Private Sub CommandButton3_Click()
Dim i, j, x, UltimaLinha As Integer
Dim frete As Double
Const FOR_READING = 1
Const FOR_WRITING = 2
Const FOR_APPENDING = 8

    For i = 0 To ListBox2.ListCount - 1
        If ListBox2.List(i) = True Then
                Sheets("Contas_Pagar").Activate 'Seleciona a planilha Banco
                Range("3:3").Select 'Seleciona a Linha 2 para inserção de nova linha
                Selection.Insert Shift:=xlDown 'Insere uma linha e coloca o banco para baixo
                Range("A3").Select 'Seleciona a primeira celula da base para inserção de dados

                ActiveCell.Value = Range("A4").Value + 1
                ActiveCell.Offset(0, 1).Value = "GRAFICA E EDITORA REVENDA PRINT LTDA"
                ActiveCell.Offset(0, 2).Value = CDate(Now)
                ActiveCell.Offset(0, 6).Value = CDbl(ListBox2.List(i, 2))

    If datavencimento.Value = "" Then
        MsgBox "Data de Vencimento exigida!"
        Exit Sub
    Else
        ActiveCell.Offset(0, 8).Value = CDate(datavencimento.Value)
    End If
    If dataenvio.Value = "" Then
        MsgBox "Data de Envio exigida!"
        Exit Sub
    Else
        ActiveCell.Offset(0, 13).Value = CDate(dataenvio.Value)
    End If

ActiveCell.Offset(0, 9).Value = historico.Text
ActiveCell.Offset(0, 10).Value = "ABERTA"
ActiveCell.Offset(0, 11).Value = Val(ListBox2.List(i))
grades = grades & Val(ListBox2.List(i)) & ", "
x = i
        End If
    Next

'lançamento do frete

frete = Application.InputBox("Informe o valor do Frete para o Envio com data " & dataenvio.Value, "Valor do Frete")

                Sheets("Contas_Pagar").Activate 'Seleciona a planilha Banco
                Range("3:3").Select 'Seleciona a Linha 2 para inserção de nova linha
                Selection.Insert Shift:=xlDown 'Insere uma linha e coloca o banco para baixo
                Range("A3").Select 'Seleciona a primeira celula da base para inserção de dados
                ActiveCell.Value = Range("A4").Value + 1
                ActiveCell.Offset(0, 1).Value = "GRAFICA E EDITORA REVENDA PRINT LTDA"
                ActiveCell.Offset(0, 2).Value = CDate(Now)
                ActiveCell.Offset(0, 6).Value = CDbl(frete)
                ActiveCell.Offset(0, 8).Value = CDate(datavencimento.Value)
                ActiveCell.Offset(0, 9).Value = "FRETE - " & historico.Text & " - " & grades
                ActiveCell.Offset(0, 10).Value = "ABERTA"
                'ActiveCell.Offset(0, 11).Value = Val(ListBox2.List(x))
                ActiveCell.Offset(0, 13).Value = CDate(dataenvio.Value)

ActiveWorkbook.Save

MsgBox "Lançamento realizado com sucesso!"

End Sub