In effetti sei sulla buona strada. L'esempio che riporto funziona anche nel caso nella tua stringa non abbia nessun elemento o nel caso la tua stringa contenga sia elementi numerici che alfanumerici:

Dim miaStringa As String
Dim vettore As Variant
Dim i As Integer, Somma As Long, Quanti As Integer

miaStringa = "1,4,3,A,C,6,4,2,3"
vettore = Split(miaStringa, ",")

Somma = 0
Quanti = 0
For i = LBound(vettore) To UBound(vettore)
If IsNumeric(vettore(i)) Then
Somma = Somma + vettore(i)
Quanti = Quanti + 1
End If
Next

lblTotale.Caption = CStr(Somma)
lblQuantinumeri.Caption = CStr(Quanti)
lblquantielementi.Caption = CStr(UBound(vettore) + 1)

Ciao