Hola amigos bakunos necesito ayuda porfavor:metal:
no puedo converitr un cadena de caracteres a
flotante en visual basic 6

Primero traigo un dato de un txt (que es un numero ej 10.24)
luego lo guardo en una variable string
y lo convierto con Cdbl(variable)
y lo mando a una base en donde el registro esta como doble .

pero nomas no me lo convierte a doble
me hace esto con el ejemplo de arriba de 10.24
y me lo pasa a 1024
y yo necesito los decimales
ya probe con clng, cint,cdec :eolo:
y hace lo mismo
q puedo hacer
ayuda porfavor.



Agrego el codigo como me lo pidieron


Dim cadena As String, clave As String, i As Integer, letra As String, final As String
Dim y As Integer, j As Integer, x As Integer, k As Integer
Dim matriz(4) As String, m As Integer, texto As String, letra2 As String

If Text1.Text <> "" Then
Open Text1.Text For Input As #1

Do While Not EOF(1)
Line Input #1, cadena

'Line Input #1, cadenadetexto
' If Trim(Mid(cadenadetexto, 1, 4)) = Text1 Then
matriz(0) = Trim(Mid(cadena, 1, 18))
matriz(1) = Trim(Mid(cadena, 19, 40))
matriz(2) = Trim(Mid(cadena, 59, 80))

k = 0

'/**************guardar en la BD
llenar.Index = "num_part"
texto = matriz(0)
llenar.Seek "=", texto
If llenar.NoMatch = True Then
llenar.AddNew
With llenar
.Fields("num_parte") = matriz(0)
.Fields("descripcion") = matriz(1)
.Fields("importe") = CDbl(matriz(2))
.Update
End With

Else
llenar.Edit
llenar.Fields("importe") = CDbl(matriz(2))
llenar.Update
k = 2
End If
Loop
Close #1
If k = 2 Then
MsgBox "Datos Actualizados"
Else
MsgBox "Datos Importados correctamente"
k = 1
End If
Else
MsgBox "Seleccione un archivo"
End If


/************************************
ya encontre esto

[FONT=Verdana, Arial, Helvetica, sans-serif]Converting a string to a double is simple: [/FONT]
Dim d1 As DoubleDim d2 As Double' You can be explicitd1 = CDbl("12.2")' Or you can just do this...d2 = "12.2"Print d1 ' prints 12.2Print d2 ' prints 12.2y asi lo tengo pero no me lo hacemaldito compiladores por q hacen de las suyas cuando uno menos lo espera