Visual Basic 6 - Controllare Dati

Buongiorno ragazzi,
sono pochi mesi che ho iniziato nella mia scuola a programmare in visual basic. Il professore dopo averci bombardato in questi mesi di teoria, da 2 settimane stiamo facendo anke un pò di pratica in laboratorio. Ora ci sta assegnando esercizi sui numeri ad esempio quello di controllare i decimali e fare operazioni. Ora vi spiego il mio problema. Calcolando dei valori in questo modo:

Private Sub cmdCalcola_Click()

tot = Val(txtTotaleDecimale.Text)
tot = 0

Do
N = InputBox("Quanti valori vuoi caricare?" & vbCrLf & _
"(Inserire un valore minore di 50)", "Richiesta numero dati")
Loop While N > 50

For i = 1 To N
Numero(i) = InputBox("Inserisci Valore", "Inserimento Dati")
Next i


For i = 1 To N
tot = tot + Numero(i)
Next i

txtTotaleDecimale.Text = tot

End Sub

In pratica se il risultato è ad esempio:

10227,133

Vorrei che nella nella txtTotaleDecimale visualizzi il totale come scritto sopra...quindi:

txtTotaleDecimale.Text = tot

Invece nella txtTotaleIntero visualizzi solo: "10227". Cioè devo eliminare i numeri dopo la virgola, quindi solo la parte intera. Si può fare?

Sono riuscito a risolvere. Ho fatto così:

txtTotaleIntero.Text=Fix(tot)

In questo modo funziona benissimo!

Ora dovrei invece eliminare una parte del risultato. In pratica se il risultato è:

10227,133

Devo inserire in un'altra text(txtParteDecimale) la parte decimale, cioè devo visualizzare:

7,133


Quale funzione devo usare?

7,133 ?

Forse volevi dire

0,133

Sorry.

In pratica devo calcolare questo...ecco come scritto nell'esempio dell'esercizio:


a)10227,133
b)7,133
c)2,133

TextBox2.Text= 2,133

a)10221,133
b)1,133
c)1,133

TextBox2.Text=1,133


Ecco cosa devo fare!

Scusa, ma il criterio quale sarebbe?

Dovrei calcolare lo scarto. Cioè prendere il primo numero intero e poi i numeri dopo la virgola e visualizzarli in una TexBox.

E cosa c'entra il 2,133 ?