Se devi sommarli basta convertirli

codice:
Dim a As String

Private Sub Command1_Click()
a = Text1.Text
flag = IsNumeric(a)
If flag = True Then
a = CInt(a)
MsgBox a
End If
End Sub
ciao