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