[Resolvido]Propriedade LeftMargin, RightMargin e TopMargin

Olá pessoal,

Estou tendo uma certa dificuldade para aplicar um código que configure as margens de uma caixa de texto ou será que elas só se aplicam para formulário? O campo Nome de meu formulário, por exemplo, de meu formulário não cria uma margem correspondente ao valor de minha combobox (cboMargDireita). Tanto faz se uso cboMargDireita ou cboMargDireita.Column(0) dá no mesmo. Após ir o nome para a margem direita pela propriedade TextAlign, o código com a propriedade RightMargin não funciona. Alguém pode me dar uma luz aqui?

O código agora funciona assim:

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
Dim sValor1 As Double
Dim sValor2 As Double

Const TW As Integer = 567

sValor1 = Nz(Forms!Catálogo!cboMargDireita)   ' exemplo de valor aqui na minha lista de valores pode ser 2.
sValor2 = Nz(Forms!Catálogo!cboMargEsq)


If CurrentProject.AllForms("Logos").IsLoaded Then
 .......................  
 ElseIf Forms!Catálogo!cboPosicao.Column(0) = "À Direita" Then
 Forms("MeuFormulário").Controls("MinhaCaixadeTexto").TextAlign = 3
 
 
 ElseIf Forms!Catálogo!cboMargDireita = sValor1 Then
 
 Forms("MeuFormulário").Controls("MinhaCaixadeTexto").RightMargin = sValor1 * TW
 
 ElseIf Forms!Catálogo!cboMargEsq = sValor2 Then

 Forms("MeuFormulário").Controls("MinhaCaixadeTexto").LeftMargin = sValor2 * TW
 
 Else
 Exit Sub
 End If
 
 End Sub