Poner el UserForm en pantalla completa y centrar los controles

Hola,

Tengo un programa de gestión de resultados deportivos y mi problema es el siguiente:
- logro mostrar el userform en pantalla completa, pero los controles se representan correctamente, pero a la izquierda del userform (solo con la parte de inicialización)
- el código adjunto, activate, hace que solo aparezca una pequeña porción del userform en la esquina superior izquierda de la pantalla.

¿Tendría una solución que proponerme?

Gracias por su ayuda
Atentamente
ajca29

Private Sub Workbook_Open()
'Ocultar las columnas que contienen advertencias
Columns("CB:DA").Select
Selection.EntireColumn.Hidden = True
UserForm2.Show
End Sub

Private Sub UserForm_Initialize()
With UserForm2
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
End With
End Sub

Private Sub UserForm_Activate()
Dim RW As Single, RH As Single
Me.Width = ScreenWidth * PointsPerPixel
Me.Height = ScreenHeight * PointsPerPixel
RW = ScreenWidth * PointsPerPixel / Me.Width
RH = ScreenHeight * PointsPerPixel / Me.Height
Dim Ctl As MSForms.Control
For Each Ctl In Me.Controls
Ctl.Move Ctl.Left * RW, Ctl.Top * RH, Ctl.Width * RW, Ctl.Height * RH
Next
End Sub

Private Sub Bouton_Annulation_Click()
TextBox1.Text = "" 'Borrar el contenido de los TextBox
TextBox2.Text = ""
TextBox3.Text = ""
End Sub

Configuración: Windows 8 / Internet Explorer 10.0