A lo mejor queres que vaya tomando forma a un dni mientras lo vas escribiendo, entonces es esto:

Private Sub Text1_Change()
Text1 = FormatNumber(Text1, 0)
Text1.SelStart = Len(Text1.Text)
End Sub

Esta solucion es solo cuando ya terminaste de escribir el dni 00000000 y luego presionas un boton
 y al boton le pones esto.

Private Sub Command1_Click()
Text1.Text = FormatNumber(Text1, 0)
End Sub

es muchisimo mas sencillo.

si lo pones en el evento change, no escribira el numero correcto.