Visual Basic para Aplicaciones - Envio codigo

Hola foro buen dia, les muestro parte del codigo que utilice para poder hacer comparaciones y elegir el nivel que deseo tomar, Ahora bien lo que necesito hacer es entre el Campo1 y el Campo2 elegir el menor valor y mostrarlo en el Campo3. ALGUIEN ME PODRIA AYUDAR?
GRACIAS

Private Sub Detalle_Paint()
If PuntajeCalidad.Value > 181 And PuntajeCalidad.Value < 240 Then
Campo1.Caption = 1
Else
End If
If PuntajeCalidad.Value > 241 And PuntajeCalidad.Value < 300 Then
Campo1.Caption = 2
Else
End If
If PuntajeCalidad.Value > 301 And PuntajeCalidad.Value < 360 Then
Campo1.Caption = 3
Else
End If
If PuntajeCalidad.Value > 361 And PuntajeCalidad.Value < 420 Then
Campo1.Caption = 4
Else
End If
If PuntajeCalidad.Value > 421 And PuntajeCalidad.Value < 480 Then
Campo1.Caption = 5
Else
End If
If PuntajeCalidad.Value > 481 And PuntajeCalidad.Value < 510 Then
Campo1.Caption = 6
Else
End If
If PuntajeCalidad.Value > 511 And PuntajeCalidad.Value < 540 Then
Campo1.Caption = 7
Else
End If
If PuntajeCalidad.Value > 541 And PuntajeCalidad.Value < 570 Then
Campo1.Caption = 8
Else
End If
If PuntajeCalidad.Value > 571 And PuntajeCalidad.Value < 600 Then
Campo1.Caption = 9
Else
End If
If PuntajeCalidad.Value = " " Then
Campo1.Caption = 0
End If

If PuntajeTotal.Value > 301 And PuntajeTotal.Value < 400 Then
Campo2.Caption = 1
Else
End If
If PuntajeTotal.Value > 401 And PuntajeTotal.Value < 500 Then
Campo2.Caption = 2
Else
End If
If PuntajeTotal.Value > 501 And PuntajeTotal.Value < 600 Then
Campo2.Caption = 3
Else
End If
If PuntajeTotal.Value > 601 And PuntajeTotal.Value < 700 Then
Campo2.Caption = 4
Else
End If
If PuntajeTotal.Value > 701 And PuntajeTotal.Value < 800 Then
Campo2.Caption = 5
Else
End If
If PuntajeTotal.Value > 801 And PuntajeTotal.Value < 850 Then
Campo2.Caption = 6
Else
End If
If PuntajeTotal.Value > 851 And PuntajeTotal.Value < 900 Then
Campo2.Caption = 7
Else
End If
If PuntajeTotal.Value > 901 And PuntajeTotal.Value < 950 Then
Campo2.Caption = 8
Else
End If
If PuntajeTotal.Value > 951 And PuntajeTotal.Value < 1000 Then
Campo2.Caption = 9
Else
End If
If PuntajeTotal.Value = " " Then
Campo2.Caption = 0
End If

End Sub

BUEN DIA
CARMEN

If CInt(Campo1.Caption) > CInt(Campo2.Caption) Then
Campo3.Caption = Campo2.Caption
Else
Campo3.Caption = Campo1.Caption
End If

Saludos desde Baires, JuanC

Hola Juan Muchisimas gracias por tu ayuda estoy trabajando en ello y lo acabo de probar pero me marca un error de depueración No. 13.

pasame el archivo o el código completo para verlo

Hola Juan muchas gracias, a tu correo te envíe el archivo completo de todas maneras el codigo que utilice fue este:
Private Sub Detalle_Paint()
If PuntajeCalidad.Value > 181 And PuntajeCalidad.Value < 240 Then
Campo1.Caption = 1
Else
End If
If PuntajeCalidad.Value > 241 And PuntajeCalidad.Value < 300 Then
Campo1.Caption = 2
Else
End If
If PuntajeCalidad.Value > 301 And PuntajeCalidad.Value < 360 Then
Campo1.Caption = 3
Else
End If
If PuntajeCalidad.Value > 361 And PuntajeCalidad.Value < 420 Then
Campo1.Caption = 4
Else
End If
If PuntajeCalidad.Value > 421 And PuntajeCalidad.Value < 480 Then
Campo1.Caption = 5
Else
End If
If PuntajeCalidad.Value > 481 And PuntajeCalidad.Value < 510 Then
Campo1.Caption = 6
Else
End If
If PuntajeCalidad.Value > 511 And PuntajeCalidad.Value < 540 Then
Campo1.Caption = 7
Else
End If
If PuntajeCalidad.Value > 541 And PuntajeCalidad.Value < 570 Then
Campo1.Caption = 8
Else
End If
If PuntajeCalidad.Value > 571 And PuntajeCalidad.Value < 600 Then
Campo1.Caption = 9
Else
End If
If PuntajeCalidad.Value = " " Then
Campo1.Caption = 0
End If

If PuntajeTotal.Value > 301 And PuntajeTotal.Value < 400 Then
Campo2.Caption = 1
Else
End If
If PuntajeTotal.Value > 401 And PuntajeTotal.Value < 500 Then
Campo2.Caption = 2
Else
End If
If PuntajeTotal.Value > 501 And PuntajeTotal.Value < 600 Then
Campo2.Caption = 3
Else
End If
If PuntajeTotal.Value > 601 And PuntajeTotal.Value < 700 Then
Campo2.Caption = 4
Else
End If
If PuntajeTotal.Value > 701 And PuntajeTotal.Value < 800 Then
Campo2.Caption = 5
Else
End If
If PuntajeTotal.Value > 801 And PuntajeTotal.Value < 850 Then
Campo2.Caption = 6
Else
End If
If PuntajeTotal.Value > 851 And PuntajeTotal.Value < 900 Then
Campo2.Caption = 7
Else
End If
If PuntajeTotal.Value > 901 And PuntajeTotal.Value < 950 Then
Campo2.Caption = 8
Else
End If
If PuntajeTotal.Value > 951 And PuntajeTotal.Value < 1000 Then
Campo2.Caption = 9
Else
End If
If PuntajeTotal.Value = " " Then
Campo2.Caption = 0
End If
EndSub

El código que me dijisste lo puse al final del mío.

De cualquier forma ya esta en tu correo te lo adjunte y va comprimido.
Gracias.