Visual Basic 6 - OPERAZIONI NUMERICHE

ALLORA HO QUESTO COMANDO AD UN OGGETTO:
Private Sub GENERA_Click()

risultato = (Text1 / 7)

txtCounter.Text = CStr(risultato)
End Sub
quindi si inserisce in Text1 una numero di 10 o piu' cifre
e nella casella Text sivisualizza il risultato,niente di + semplice, pero' io vorrei che nella casella oggetto Text si visualizzassero solo le prime 6 cifre
sicuramente ci sara' un numero con virgola
del tipo

1234567895412,25

avendo questo io dovrei far visualizzare solo le prime 6 cifre :
123456

come posso fare?

La converti in stringa e fai scrivere solo le prime sei cifre...

in vb c'e' la funzione mid$("stringa","carattere di partenza della stringa","caratteri da leggere"

nel tuo caso sarebbe

Private Sub GENERA_Click()
dim P as string
risultato = (Text1 / 7)
P = mid$(risultato,1,6)
txtCounter.Text = P
End Sub

questa funzione personalmente la uso tantissimo per controllare ad uno ad uno i caratteri di una stringa con un bel ciclo for

tipo

dim L as long
dim P as string
dim i as integer

L = len(stringa)

for i =1 to L
P = mid$(stringa,i,1)
msgbox P
next i

ciauzzz

GRAZIEEEEEEE