Scusa, cosa intendi per "non riesco a farlo vedere come dato"?
Una precisazione: Val dà un double, Dato1 è un Decimal: VB converte automaticamente, ma è meglio prendere la buona abitudine di attivare Option Strict in Progetto / Compilazione: ti evidenzia queste piccole discrepanze.
Dato1 = CType(Val(InputBox("Inserire il numero", "Messaggio per l'utente")), Decimal).
EDIT:
Ehm, non è che intendevi questo??
TextBox2.Text = Risultato.ToString