Visual Basic - Generador de CUIT

Hice esto:

Dim Y As Integer
Private Sub cmdCUIT_Click()
If OpMasc = True Then
XX.Text = 20
Else
XX.Text = 27
End If
If OpEmp = True Then
XX.Text = 30
End If
If DNI.Text = " " Then
MsgBox "Ingrese sus datos personales.", vbOK, "Error"
End If
CUIT.Text = XX.Text & DNI.Text
Y = Val(XX.Text & DNI.Text * 5432765432#)
YY.Text = Y / 11
YY.Text = Y Mod 11
YY.Text = 11 - Y
If YY.Text < 0 Then
YY.Text = YY.Text * YY.Text
CUIT.Text = XX.Text & "-" & DNI.Text & "-" & YY.Text
End If

End Sub

Diganme porqué anda mal..
Se supone que debe calcular el último número de CUIT, pero lo hace mal. Lo se porque ya hice los calculos manualmente en un papel con unos CUIT existentes.