Problema com string

[kanamasuy 0]

Pessoal estou criando um form para imprimir meus relatorios do crystal report e ocorreu o seguinte erro no modulo tem essa função

 

Function SoNumero(Campo As String) As String

 

Dim iX As Integer, AuX As String

AuX = ""

For iX = 1 To Len(Campo)

If IsNumeric(Mid(Campo, iX, 1)) Then

AuX = AuX + Mid(Campo, iX, 1)

End If

Next

SoNumero = AuX

End Function

 

Essa função é para eliminação de caracteres que não sejam números de uma string.

 

agora la no form tem uma variavel que é

 

 

Sub EncheComboNVias()

'Cria um atalho para o componente

With cmbNVias

.Clear

'Cria um laço de 1 a 50 que vai popoular o combo com estes valores

For X = 1 To 50 <-----------------Da Erro nessa LINHA

.AddItem X

Next X

'Posiciona o primeiro registro no combo.

.ListIndex = 0

End With

End Sub

 

da um erro de variable recquird -cant - assign this expression ,mais porque isso ocorre mesmo eu fazendo a variavel lá no modulo????

alguém pode me ajudar

desde já agradeço! http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

[Claudio Neto 3]

Eu não entendi uma coisa.

 

O que sua function tem a ver com a sub do form?

 

Pelo que percebi não há ligação nenhuma entre as duas.

 

E o erro que está dando não faz sentido, o código está correto, tente declarar o x para ver se resolve.