Così dà ancora errore:Originariamente inviato da Grunt
Split serve a dividere una stringa, restituendo un array con le sottostringhe divise.
codice: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
Nella terza riga occorre, almeno in VB6, dichiarare
senza le doppie parentesicodice:Dim div As Variant
![]()