ich nehme mal an dass du mit "fenster" ein textfeld meinst, und probleme hast die strings zu addieren.
ich hab mir damals eine eigene atoi-funktion gebastelt mit der gings eigentlich ganz gut.
Public Function atoi(ByVal eingabe As String) As Integer
'umwandlung von string in integer bei fehlerhaftem string rückgabe = -1
Dim i, j As Integer
Dim a, b As Double
Dim ergebnis
atoi = 0
For i = 1 To Len(eingabe)
If Asc(Mid(eingabe, i, 1)) < 48 Or Asc(Mid(eingabe, i, 1)) > 57 Then
atoi = -1
Exit Function
End If
Next i
j = 1
i = Len(eingabe)
Do While i > 0
atoi = atoi + (j * (Asc(Mid(eingabe, i, 1)) - 48))
j = j * 10
i = i - 1
Loop
End Function
sollte funktionieren. allerdings kann ich das grad nicht testen, da ich kein vb6 mehr installiert hab.
alternativ müsst es eigentlich mit dem variant-typ gehen (glaub ich). quasi alle texte in variablen vom typ "Variant" stecken und dann damit rechnen.
lg
jasso