[Resolvido]Dúvida exemplo mensagen aleatórias sem repetição

Ola pessoal tem um exemplo do mestre criquio de mensagem aleatória sem repetição, não estou conseguindo ajustar o tamanho]
este é o código

If Me.CHAMADA.Left = 0 Then
varD = "direita"
Me.CHAMADA = DLookup("Mensagem", "tblMensagens", "Código=" & varC)
Me.CHAMADA.Width = Len(Me.CHAMADA) * Int(250 * 20 / 12) + 1000
If varC < DMax("Código", "tblMensagens") Then
varC = varC + 1
ElseIf varC = DMax("Código", "tblMensagens") Then
varC = 1
End If
ElseIf Me.CHAMADA.Left + Me.CHAMADA.Width >= Me.InsideWidth Then
varD = "esquerda"
End If

If varD = "direita" Then
Me.CHAMADA.Left = Me.CHAMADA.Left + 100
ElseIf varD = "esquerda" Then
Me.CHAMADA.Left = Me.CHAMADA.Left - 100
End If
End Sub

Preciso ajustar para uma cxtexto 9largura e 1,5 de altura
resolução 1024x768

O que está acontecendo de forma indevida e como deveria acontecer? No exemplo funciona tudo certo ou tambem está com problemas?

Primeiro deixa corrigir os creditos exemplo do Valdino Campos
Erro quando bate a direita mensagem de erro o controle ou controle de subformulário é muito grande para este local

Coloque um On Error Resume Next para ver se funciona. Se funcionar, faça o tratamento desse erro:

Código:

On Error GoTo TErro

...

TErro:
If Err.Number = 0 Or Err.Number = Número do erro Then
    Resume Next
Else
    MsgBox Err.Number & " - " & Err.Description
End If

Poderíamos simplesmente utilizar o On Error Resume Next mas aí pode ocorrer outros erros devido a outros fatores e ficaríamos sem saber.

Já faz um certo tempo. Foi resolvido?

Certo Criquio!