Consulta sobre textbox

Estimado amigo
Tengo este código que es para traer un dato al textbox13 de un rango de celdas que se llama "harinas" pero resulta que cuando el dato es decimal me sale como numero entero es decir por ejemplo el dato es 0.5 y me sale 5.0... Por favor podrías ayudarme... Muchas gracias
Private Sub CALCULAR_Click()
TextBox13 = Application.WorksheetFunction.VLookup(Val(TextBox1), Range("Harinas"), 4, 0)
TextBox13 = Format(TextBox13, "0.0")
If TextBox13.Text = "" Then
    TextBox13.ForeColor = &HC0E0FF
        End If
If TextBox13.Text = "0.0" Then
    TextBox13.ForeColor = &HC0E0FF
        End If
End Sub