Как сделать отображение фиксированым: 0.3 как 0.3000 ? - VB

Формулировка задачи:

Неприятно выглядит, когда отображение цифр скачет. Например после 0.4 отображается 0.3999. Как сделать, чтобы не потеряв разрядность отобразить все числа фиксированной длиной?
Например: 0.4000 и 0.3999?

Решение задачи: «Как сделать отображение фиксированым: 0.3 как 0.3000 ?»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> Command1_Click()
<font color="blue">Dim</font> s(<font color="darkblue"><b>5</b></font>) <font color="blue">As</font> <font color="blue">String</font>
<font color="blue">Dim</font> f <font color="blue">As</font> Variant
<font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Integer</font>
s(<font color="darkblue"><b>0</b></font>) = <font color="teal">"12V"</font>
s(<font color="darkblue"><b>1</b></font>) = <font color="teal">"120V"</font>
s(<font color="darkblue"><b>2</b></font>) = <font color="teal">"1000V"</font>
s(<font color="darkblue"><b>3</b></font>) = <font color="teal">"0.75V"</font>
s(<font color="darkblue"><b>4</b></font>) = <font color="teal">"0.01V"</font>
s(<font color="darkblue"><b>5</b></font>) = <font color="teal">"0.001V"</font>
<font color="blue">For</font> i = <font color="darkblue"><b>0</b></font> <font color="blue">To</font> <font color="darkblue"><b>5</b></font>
    <font color="blue">If</font> Val(s(i)) < <font color="darkblue"><b>1</b></font> <font color="blue">Then</font>
        f = Format(Val(s(i)), <font color="teal">"#0.000"</font>)
    <font color="blue">Else</font>
        f = Format(Val(s(i)), <font color="teal">"000#"</font>)
    <font color="blue">End</font> <font color="blue">If</font>
    Debug.<font color="blue">Print</font> f & <font color="teal">"V"</font>
<font color="blue">Next</font> i
<font color="blue">End</font> <font color="blue">Sub</font>
                        