como arreglo este codigo que hago

Hola como les va
necesito arreglar esto

Private Sub Command3_Click()
Dim Text3 As Double
Text4 = Text4.Text
''If Text4 = "" Then
''Text11 = ""
''Else
''Text11 = ""
If Text4 >= 0 Or Text4 = "" Then
Text4 = "9"
Else
Text4 = "f"
End If
End Sub


En donde el texto 4 escibo un valor que es un numero, y que cuando sea un numero entre 1 y 3 diga en el texto 11, que eso es igual a f sino que diga que es 9, pero cuando en el texto 4 no escriba nada, entonces que no diga nada.

Me ayudan porfa