Y el código que tienes hasta ahora es.... ?

PD: Te informo que aquí no hacen tareas. 

este es el codigo k tengo pero esta mal... y no c kmo hacer para k me aparezca eso...

Dim num As Integer
Dim fact As Integer
 
Private Sub Command1_Click()
 Text1.Text = ""
 Text2.Text = ""
 Text1.Text.SetFocus
End Sub
 
Private Sub Command2_Click()
    fact = 1
    num = Text1.Text
 
    While num <> 0
        fact = fact * num
        num = num - 1
    Wend
 
    Text2.Text = fact
    Me.Text1.Enabled = False
    Me.Text2.Enabled = False
End Sub
 
Private Sub Command3_Click()
End
End Sub
 

gracias

Tambien puedes hacer una función que se encargue de calcular el factorial de un numero cualquiera.
En este ejemplo está definida en forma recursiva:

Function Factorial (n as long) as long
if n = 1 then
    Factorial = 1
else
    Factorial = n * Factorial(n-1)
end if
end function
 
Private Sub Command1_Click()
 Text1.Text = ""
 Text2.Text = ""
 Text1.Text.SetFocus
End Sub
 
Private Sub Command2_Click()
    'fact = 1
    'num = Text1.Text
    'While num <> 0
    '    fact = fact * num
    '    num = num - 1
    'Wend
 
    'Text2.Text = fact
    if isnumeric(Text1.Text) then
        Text2.Text = Factorial(clng(Text1.Text)) 'si Text1 no tiene un numero, se generará un error, por eso usamos isnumeric antes
        Me.Text1.Enabled = False
        Me.Text2.Enabled = False
    else
        msgbox "Ingrese un numero!"
        text1.setfocus
    endif
End Sub
 
Private Sub Command3_Click()
End
End Sub
 

Claro.

Mi idea no era corregir (ni nada por el estilo), sino mostrar un poco de programacion modular basica.