con la split prelevi i numeri e con il ciclo for li sommi, in questo modo:
Private Sub Command1_Click()
Dim n() As String, risultato As Integer
n = Split(Text1.Text, vbCrLf)
Dim x As Integer
For x = 0 To UBound(n)
risultato = risultato + n(x)
Next x
MsgBox risultato
End Sub
Ultima modifica effettuata da GrG il 30/08/2009 alle 23:27 |