Undgå negativ differens ved fratrækning af tal

Jeg skal trække værdien af tal2 fra tal1.
Tal2 skal hele tiden være mindre end tal 1 for at undgå en
negativ differens, hvorfor jeg laver et kald til function NytTal()
Tallene vælges som vist i koden nedenfor, men værdien af Nyttal2 bliver hele tiden 0.
Hvad har jeg gjort forkert?

Private Sub Command5_Click()
On Error Resume Next
If Option1.Value = True And (Option7.Value = True) Then
Randomize
tal1 = Int((9 * Rnd) + 1)
tal2 = Int((9 * Rnd) + 1)
Call NytTal
Label11.Caption = tal1
Label12.Caption = NytTal2
End If

Private Function NytTal()
    Randomize
    If tal2 > tal1 Then
    tal2 = Int((9 * Rnd) + 1)

    Else
    tal2 = NytTal2
End If
Do Until tal2 < tal1
  tal2 = NytTal2
  Exit Do
Loop
   
End Function