[VB6] Split

[Petra]

Ragazzi, perchè non funziona ? ? ?

Private Sub Form_Load()
Dim prezzo As String
Dim i As Integer
Dim div(2) As Variant
prezzo = "896,58"
For i = 0 To 1
div(i) = Split(prezzo, ",")
MsgBox div(i)
Next i
End Sub

Mi dice "Tipo non corrispondente"

[Petra]

[Grunt]

Split serve a dividere una stringa, restituendo un array con le sottostringhe divise.

Private Sub Form_Load()
Dim prezzo As String
Dim div() As Variant

prezzo = "896,58"
div = Split(prezzo, ",")

MsgBox div(0) & " - " & div(1)
End Sub

[TRC]

Originariamente inviato da Grunt
Split serve a dividere una stringa, restituendo un array con le sottostringhe divise.

Private Sub Form_Load()
Dim prezzo As String
Dim div() As Variant

prezzo = "896,58"
div = Split(prezzo, ",")

MsgBox div(0) & " - " & div(1)
End Sub

Così dà ancora errore:
Nella terza riga occorre, almeno in VB6, dichiarare

Dim div As Variant

senza le doppie parentesi