Pasar un numero a hora

If IsNumeric(TextBox1.Text) Then
TextBox1.Text = FormatNumber(((CDbl(TextBox1.Text) -
Int(CDbl(TextBox1.Text))) * 60 / 100) + Int(CDbl(TextBox1.Text)), 2)
TextBox1.Text = TextBox1.Text.Replace(","c, ":"c)
End If

"Daniel" escribió en el mensaje
news:16fb01c538ae$7b5b8eb0$

Hola: necesito convertir un numero a formato de hora

Ej: tengo 1,50 y necesito transformarlo a 1:30