codice:

Private Sub Form_Load()
Text1.Text = 1
End Sub



Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim numero As Integer
numero = Val(Text1.Text) + 1
Text1.Text = numero

End If
End Sub


Con "VAL" converti la stringa in numero.....cosi funziona....fammi sapere!