se posso darti un consiglio, in questi casi io preferisco utilizzare delle Function che abbiano come valore di ritorno un boolean. in questo modo posso ciclare la funzione fino che la condizione non è soddisfatta.
e il codice è pure più pulito a parer mio
quindi farei una cosa così:
codice:
Private Sub Command1_Click()
On Error GoTo Errore
    Dim bRis As Boolean
    bRis = False
    Do Until bRis
        bRis = fCalcola
    Loop
    Exit Sub
Errore:
    MsgBox Err.Number & ": " & Err.Description
End Sub

Private Function fCalcola() As Boolean
On Error GoTo Errore
    Text1 = 1 + 1
    Text2 = 0 / 0
    fCalcola = True
    Exit Function
Errore:
    'MsgBox Err.Number & ": " & Err.Description
    fCalcola = False
End Function
anche se ancora non ho capito qual è il tuo scopo visto che in questo caso si genera un loop infinito.

ps.
ricordati di usare il tag per scrivere il codice, lo hanno messo apposta perchè rende il tutto più leggibile