Problemas con userform

Hice este código en un userfon lo que quiero lograr es que coloque un código en la celda D1, el código debe estar compuesto por "9220" el valor del texbox1 & "00" & texbox2 & "0" & texbox3. Pero si el texbox3 es mayor que 99 debe colocar un "0", en lugar de "0".

Intente esto pero no coloca ningún valor en D1, asi que si alguien puede ayudarme agradecería mucho de su colaboración.

Private Sub UFGenerar_Click()

If Val(UFformato2) > 99 Or Val(UFformato2) < 99 Then
UFformato2 = Empty
Else
If UFformato2 = Empty Then
Sheets("PACKING").Select
Range("d1").Select
ActiveSheet.Range("D1") = ActiveSheet.Range("D1") & "9220" & Packinguf.UFgramaje & "0" & Packinguf.UFformato1 & "0" & Packinguf.UFformato2.Value
UFformato2 = Empty
Else
If UFformato2 < 99 Then
Sheets("PACKING").Select
Range("d1").Select
ActiveSheet.Range("D1") = ActiveSheet.Range("D1") & "9220" & Packinguf.UFgramaje & "0" & Packinguf.UFformato1 & "00" & Packinguf.UFformato2.Value
UFformato2 = Empty
End If
End If
End If