formato a cuadro de texto

[Solmar]

Un saludo a todos los del foro
Les comento que tengo un texbox al cual debo de realizarte cierttas validaciones.
1.-Que no reciba letras
2.- que el formato sea 000.00
3.- que los valores esten entre 0.01 y 100
Los dos primero ya los tengo
con el siguiente codigo

Código vb:

If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 _
    And (KeyAscii <> 46 Or InStr(txtporcentaje.Text, ".") >= 1) Then
        KeyAscii = Empty
        txtporcentaje.Text = Format(txtporcentaje.Text, "000.00")
        txtporcentaje.Text = Left(txtporcentaje, 3) & "." & Mid(txtporcentaje, 2, Len(txtporcentaje))
    End If
 

solo que el formato no lo toma hata que le doy clic en algun otro componente,lo tercero de convertir los valores de tipo string a numerico no me los cambia
me manda un error de que espera una matriz el codigo que he usado para esto es

Código vb:

Dim aDbl As Double
Dim anInt As Integer
aDbl = txtporcentaje.Text
'The following line of code sets anInt to 2346.
anInt = CInt(txtporcentaje.Text)
 
   If anInt (txtporcentaje.Text) <= 0.01 Or anInt (txtporcentaje.Text) >= 100 Then
   MsgBox "Número fuera de rango"
 End If
 

espero me puedan orientar muchas gracias