[?] Realizzazione convertitore decimale/binario

[LS(05)]

Ciao a tutti,
Ecco sono qui per esporvi il mio problema.

Private Sub cmdnumero_Click()
Dim num, a As Double
Dim risultato(1 To 100) As String
num = Val(InputBox("Dammi un numero decimale"))
Do Until (num <= 0)
For i = 1 To num
If num >= 1 Then
a = num Mod 2
num = num \ 2
risultato(i) = Str(a)
risultato(i) = risultato(i) + Str(a)
MsgBox risultato(i)
Else
End
End If
Next i
Loop


End Sub

Ora la posizione dell'istruzione risultato(i) = risultato(i) + Str(a) so gia in partenza che è sbagliata infatti lo scopo e una volta che ho inserito il primo valore binario nel vettore ne devo aggiugnere un secondo invece cosi come ho fatto io ogni singolo valore viene inserito 2 volte.
Come posso fare?
P.S.:
Bisogna sistemare anche la posizione delle cifre binarie infatti esse sono stampate al contrario ma ho gia provveduto.

Grazie.

[LS(05)]

Azz raga nn mi dite niente ma le vacanze mi hanno fatto un brutto effetto :

Dim num, a As Double
Dim risultato(1 To 100) As String
num = Val(InputBox("Dammi un numero decimale"))
Do Until (num <= 0)
For i = 1 To num
If num >= 1 Then
a = num Mod 2
num = num \ 2
risultato(i) = risultato(i) + Str(a)
lbla.Caption = lbla.Caption + risultato(i)
Else
End If
Next i

Loop

Risolto!.....Purtroppo le dimenticanze estive ci sn....cm faccio a visualizzare il contenuto del vettore stringa che io ho chiamato risultato e ad assegnare anche tutto il suo contanuto ad una varibile (sempre di tipo stringa kiaro!!!! almeno questo non lho scordato ) ???

[alka]

Di quale linguaggio stiamo parlando? Hai letto il Regolamento?